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SUMMARY 


An improved two-dimensional/viscous characteristics analysis program is 
presented in this report. The program is built upon the foundation of a 
FORTRAN program in NASA CR-1 12223 entitled "Analysis of Supersonic Combustion 
Flow Fields With Embedded Subsonic Regions." The major improvements are 
described and a listing of the new program is provided. The subroutines and 
their functions are given as well as the input required for the program. 

Additionally, several applications of the new program to real problems are 
qualitatively described. Similarly, three runs obtained in the investigation 
of a real problem are presented to provide insight for the input and output of 
the program. 

This new program has greatly extended the viscous characteristics analysis 
of NASA CR-1 12223 and has transformed it into a useful combustor design tool. 
None of the problems described in this paper could be solved with the program 
capability of NASA CR-1 12223. 


INTRODUCTION 

Current investigations of the hydrogen-fueled supersonic combustion ramjet 
(scramjet) engine have delineated several technological problem areas. Refer- 
ences 1 to 4 provide evaluations of the scramjet concept. One area, the analy- 
sis of the injection, turbulent mixing, and combustion of hydrogen, has been 
addressed by references 5 and 6. 

The analysis and computer program of references 5 and 6, respectively, are 
specifically designed to analyze the parallel injection of an underexpanded 
hydrogen jet in supersonic flow. However, the viscous characteristics theory 
of these references has general applicability to two-dimensional and axisymmet- 
ric flows. Unfortunately, the program of reference 6 is limited in its ability 
to handle all the possible flow situations which may exist in these type flows. 

The present work was undertaken to extend the applicability of the com- 
puter program of reference 6. Specifically, it was intended to make the pro- 
gram a practical design tool for two-dimensional and axisymmetric supersonic 
combustors. 


SYMBOLS 

Temperatures and pressures are given in SI units. Calculations were made 
in the U.S. Customary Units, and the computer program was written with U.S. 
Customary Units. 
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a H, total 
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Subscript: 


empirical constant 
free-stream Mach number 
static pressure 

jet radius or reference length 

static temperature 

velocity 

axial distance divided by rj 

radial distance divided by rj 

mixing-zone width in viscosity model 

stoichiometric mass fraction of hydrogen (0.02915) 

sum of mass fractions of atomic and diatomic hydrogen 

flow angle 

absolute viscosity 

density 


<t center line 


PROGRAM 

The original program was designed to analyze the flow field resulting from 
underexpanded injection of hydrogen into a supersonic flow. The program was 
for a single supersonic hydrogen jet exhausting parallel to the main flow. 

The basic governing equations the program solves are the "viscous-inviscid" 
equations with finite-rate chemistry terms included. In addition, the Rankine- 
Hugoniot and Prandtl-Meyer relations are used to compute shock and expansion ^ 
conditions. Since the equations and numerical application are presented in 
references 7 to 9, they will not be repeated here. The chemistry package, 
unchanged from reference 6, has a 7-species 8-mechanism hydrogen-air reaction 
scheme . 

In addition to streamlining the analysis for computational efficiency, the 
following major modifications have been made to the program of reference 6: 

(1) The original Ferri-Kleinstein (y = y(x)) viscosity model (refs. 10 
and 11) was replaced by the Eggers z-difference (y = y(x,y)) model (ref. 12). 


The importance of allowing U to vary radially has been discussed along with 
the model in reference 12. In equation form the viscosity is given as 

M = KzU(|P local 

The empirical constant K is 0.01 and z is the radial distance between the 
points where the local velocities u^ and U2 are given by the equations 

u*i = u a + 0.95(u£ - u a ) 

and 

u 2 = u a + 0.50(u<£ - u a ) 

where u a is the stream velocity external to the jet. 

Additionally, the laminar viscosity is computed if the velocities of the 
stream and jet do not differ by more than 15 percent, and the viscosity for 
each distinct cross-stream region is computed independently. 

(2) The original method for computing the Prandtl-Meyer expansion fan at 
the injector lip has been replaced. 

Originally, the program computed the expansion in steps, and then assigned 
the varied properties (T, P, 0, u, and y) to different radial locations at 
the zero axial location. This approach produced a distorted profile since the 
origin of the expansion fan was spread over a small area of the injector exit. 
The present method computes the expansion in one operation, steps downstream to 
the 0.03 axial locations, and then computes the physical axial and radial 
locations and the corresponding properties for the first and last Mach lines 
in the expansion fan. (The value 0.03 was chosen to give good resolution with- 
out slowing the computations.) This procedure limits the origin of the fan to 
the edge of the injector lip, while computing the actual properties of the fan. 

(3) The code for computing ideal conical jet flow has been included. This 
capability allows detailed computation inside the hydrogen potential core where 
the flow-field details are determined by the conical hydrogen injector. 

(4) The ability to compute negative-running shock waves has been added. 

Even though the program had part of the code necessary for computing such 
shocks, it could not be applied because of numerical difficulty. The numeri- 
cal difficulties resulting from the vanishing radial distance between the data 
point on the shock and the adjacent point as the program marches downstream were 
removed by an averaging process which allows the removal of the adjacent point. 

(5) The code necessary for computing reflection of shock waves at the wall 
and center line has been included. This reflection technique does not account 
for shock— boundary-layer interaction. 

(6) The number of shock waves that the program can handle simultaneously 
has been increased from 4 to 20 . Up to 10 each of positive-running or negative- 
running shocks are allowed. 
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(7) The instructions for the interaction of shock waves of opposite fami- 
lies have been added. 

(8) The instructions for the coalescing of two shock waves of the same 
family have been included. 

(9) The capability of inputting the wall or center-body geometry in six or 
less sections has been added. The sections are prescribed in equational form 
and the last section can have up to a parabolic shape . All other sections are 
constrained to a shape of linear form. Successive parabolic-shaped sections 
can be run by restarting the calculations at the end of the preceding section. 

(10) Since the geometry changes allowed under change (9) can produce 
shocks and expansions, the code to compute and insert shock waves and discrete 
expansion waves at geometric breaks has been added. The program checks the 
direction of the new section and determines whether a shock or an expansion 
is needed. 

The many improvements to NASA CR-1 12223 (program of ref. 6) have been made 
concurrent with reducing the memory requirement from 151 000s to 117 7008- 

While these modifications are not all that are possible or desirable, they 
have greatly extended the usefulness of the program. The improved version of 
the program is listed in appendix A. Similarly, the various program subroutines 
and functions are given in appendix B. The input required by the program is 
described in appendix C. 


RESULTS OF CALCULATIONS 

The improved program has been applied to several problems pertinent to the 
Langley-developed scram jet engine. In particular, the flow field of a single 
underexpanded hydrogen jet, the internal flow of a gas sampling probe, the 
fuel-injector strut shape, and the combustor shape have been examined. For the 
first problem, the results have been published in reference 13. With only the 
first four major modifications mentioned in the previous section, the program 
was able to predict very near-field pitot data accurately. 

The other three problems involve ongoing research and have not been pub- 
lished. Preliminary results indicate that gas samples taken with probes of 
different designs (see refs. 14 and 15 for two typical designs) may be inaccu- 
rate due to reaction internal to the probe. It appeared that the probes 
quenched the sample as designed; however, the recompression which occurs in 
the probe may have restarted the reaction. Thus the composition reaching the 
sample bottle, or mass spectrometer, may have been different from that entering 
the probe . 

The fuel-injector strut-shape investigation by the author, showed that the 
shape of the strut downstream of the injection point was very important. Auto- 
ignition and combustion efficiency are greatly influenced by the trailing shape 
of the strut. Calculations by the author indicate that the present Langley- 


developed scramjet (see ref. 16) would gain in performance by parabolizing the 
strut trailing shape. 

Changing from a qualitative problem discussion, the problem is stated and 
actual calculations are now presented. The two-dimensional divergent combustor 
is of nondimensional length 38, based on a strut gap of 7.62 mm (the average 
strut for the Langley -developed subscale scramjet). The combustor, which has 
12° of divergence, is illustrated in figure 1. The flow entering the combustor 
is uniform and parallel and has a Mach number of 1.9, a static temperature of 
2140 K, a static pressure of 58.414 kPa, and the following composition: 


Species 

Mass fraction 

H 

6.864 x 10-6 

0 

3.529 x 10" 4 

h 2 o 

1.694 x 10" 1 

h 2 

9.177 x 10-3 

°2 

6.758 x 10- 2 

OH 

3.343 x 10-3 

n 2 

7.501 x 10- 1 


(This composition represents a partially reacted stoichiometric mixture.) 

Operation of the combustor shows that the combustion is not complete; that 
is, unreacted hydrogen is reaching the exit of the combustor. The problem then 
is to modify the 12° combustor to improve the combustion. However, the exit 
height of the combustor and the exit flow-angle distribution should be changed 
as little as possible by the modifications. 

The most obvious modification to the combustor is the placement of filler 
plates. This approach is very versatile with an almost unlimited number of 
variations. Three such variations are given in figures 2 to 4. In the first 
variation (fig. 2), the filler plate results in a combustor whose wall diverges 
12° for the first 5 units of length, 4° for the next 5 units, and returns to 
12° for the remainder of the combustor length. The switch from 12° to 4° pro- 
duces a shock wave with a turning angle of 8°. The second variation (fig. 3) 
is similar to the first except the divergence is 12°, 6°, and 12°, which 
results in a shock-wave turning angle of 6°. The third variation (fig. 4) does 
not generate a shock wave to increase the combustion, but relies instead on a 
4-unit length of constant-area combustion before the 12° of divergence. 

The three geometric variations were evaluated by using the program to cal- 
culate the flow field of each. The computer input and output for each of the 
three cases is presented in appendix D. The unreacted hydrogen exit profile 
for each case is presented in figure 5. In this figure, the sum of the atomic 
and molecular hydrogen mass fractions nondimensionalized by the stoichiometric 
mass fraction (0.02915) is plotted against nondimensional exit height. The 
computed values for the unmodified combustor are also included in the figure. 
Figure 5 suggests that all three variations improve the combustion. However, 
the 4-rj constant-area combustion would be the modification of choice. These 
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limited applications are intended to serve as an indication of the usefulness 
of the program. 


CONCLUDING REMARKS 

The improved viscous characteristics program presented in this paper is 
a major extension of a FORTRAN program in NASA CR- 11 2223 entitled "Analysis 
of Supersonic Combustion Flow Fields With Embedded Subsonic Regions." NASA 
CR-1 12223 has been converted into a useful combustor design tool and simulta- 
neously extends the program applicability. These improvements have been imple- 
mented concurrently with a decrease in the memory requirement of the program. 

The program has been successfully applied to several diverse hydrogen combustion 
problems . 


Langley Research Center 

National Aeronautics and Space Administration 
Hampton, VA 23665 
August 28, 1978 
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APPENDIX A 


LISTING OF IMPROVED VISCOUS CHARACTERISTICS ANALYSIS PROGRAM 


The entire modified program is contained in this appendix. 


R V JEM VC 

PROGRAM EM VC ( IN PUT * OUTPUT* TAPE 7* TAPE 5* INPUT* TAPE6*0UTPUT ) 

C MAIN PROGRAM FOR CHARACTERISTICS WITH SHEAR 

COMMON/AB/EPP* E PQ* EPT 
COMMON/AC/ I BOD* PIN 
COMMON /AL/GAR>GEW 
COMMON/ AX / JSUBL* JSUBU 
CQMM0N/8A/ALP(7*55)* EMINF*WINF 
COMMON/BC/IOCHEM 
COMMQN/BD/XMASS (55 ) 

COMMON /CG/AUP* BUP* CUP* DTSPRI ( 5 5 ) * DUP * E UP * J CON V* TH PR I ( 5 5 ) * YPR I ( 5 5 ) 
CQMMON/CK/WTMQLE (7 ) 

C0MM0N/CJ/CP(7*55)*CP1(7)*CPX( 55) 

C0MM0N/RC/R(55) 

COMMON/TW/TIN 

CQMMQN/DB/BETB(2Q ) * I S (20)* IDD* I J ENK* JENKI 

COMMON/OE/MM 

COMMON/DP/YN( 55 ) 

COMMQN/EO/CPIN* RO 

C0MM0N/EF/EM(55)*GAM(55)*P(55)*TH(55)*Y(55) 

COMMON/EG/EIN* PR* XLE 
C0MM0N/EP/GAMINF*H1( 7 ) , R IN F 
COMMON/ FE / DEL 

COMMON /GE/R AD* ROO* UIN* VIS INF 
CQMMON/GF/DELY* IFS* KOUNTO* MMM 
COMMON/GK/DEL X 
COMMON/HJ/KOUNT* LL* N P T 
COMMON/ HL /ALPHA* BETA 

COMMON/HM/ALPN( 7,55) *CPN(7,55),CPXN(55 ) , EMN ( 5 5 ) , G AMN ( 5 5 ) , HN ( 7 , 5 5 ), 
IL*PN(55)*QN(55)*RH0N(55)*RN(55)*THN(55)» TN(55),WN(55 ), XMUN(55) 
COMMON/HP/BETAN ( 2 0 )> I EMBED 
COMMON/OP/ALPB(7)* PHI (55 ) 

COMMCjN/PD/W( 55) * X( 55 ) 

C0MMDN/PQ/ALPHN(7) * I F UE L * PRES 

CQMMON/PQ/JCHEM.* NS P* T ( 5 5 ) * P TZE RO* I D I VE RG* TH 1* X E, Y E* RCR* P TO J * TOJ 
1* E M 1 * XMU1* 01 

CQMMQN/QA/H(7*55 )* Q(55)*RHQ(55 )* XMU(55 ) 
COMMON/QS/RHOP(2)*WDOT(7*55),WDOTC(7),WP(2)*XMUP(2) 

COMMON /RO/ A PO* API* AP2 

COMMON /RS /GPMS* PS* THS* THSL* THSU 

COMMON/ST/113* IREGI*K *KFIRST*KKKQ* PSTAR 

COMMON/TS/DVIS(55 )*DVISN(55 ) * D V I S P (2 )* VIS (55 )* VISN (55 )*VI$P (2) 
CQMMON/WAVE/XBQD( 5)* XWALl( 5) *AAB0D(5 )* BBBQD( 5) *CCBOD( 5) * EEBOD( 5) , 
ZFFBOD (5 ) * GGBOD( 5 ) * LWALL* LBOD* 1 1 1* J J J 
C0MM0N/UV/II11* IERR* I PRESS* IPRESU, ISUB 
COMMON / V T/ D AC H( 7*55) * DTC H ( 5 5 ) 

COMMON /VW/IC ON T* I END* KT* THBPN* XBPN 

COMMON/WV/NPTS*R£*XBP*XJ 

COMMON/XO/XOO 



ooooooooo 
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cdmmon/yx/abqds, bpress,c press 

CQMMON/YZ/BPRESU,CHEMFC*CPRESU,EMSUB,RTH»XSTEP 

C0MM0N/ZY/A80D,BB0D»CB0D,EB0D,FBQD»GB0D»IAVE>IPUNCH»JB0D,KKKKK 
DIMENSION XS(7),PIT0T(55),VIA(55) 

DATA 1111/0/ 

C ******************************** BEGIN INPUTTING PARAMETERS 

WRITE (6; <iQ0 ) 

112 FORMAT (I5»5X,9E13.5) 

400 FORMAT(lHl) 

J»0 TWO DIMENSIONAL 
J«1 AXISYMMETRIC 
SPECIES 1 IS H 
SPECIES 2 IS 0 
SPECIES 3 IS H20 
SPECIES 4 IS H2 
SPECIES 5 IS 02 
SPECIES 6 IS OH 
SPECIES 7 IS N2 
WTMOL E ( 1 ) * 1 • 008 
WTMOL E ( 2 ) - 16 • 

WTM0LE<3)«18.016 
WTMOL E (4)-2.016 
WTMOLE ( 5 ) * 32 • 0 
WTM0LE(6) -17.008 
WTMQLE(7)*28.014 
FAS- WTMOLE ( 4 ) /lb, 

J 2 2 * 0 
XOO-O. 

IDG-0 
DEL-0. 

XBOD(l)- 10000. 

XWALL(1)-10000. 

DO 8220 1-1,20 
BETAN { I ) *0. 

BETB ( I ) » 0 . 

IS ( I ) -0 
8220 CONTINUE 
IFS-0 
NSP-7 
RO-1.987 

ROO-R 0*3. 087*32. 2/2. 205*1000. 

EPP- 1 .E-10 
EPQ-l.E-10 
EPT-l.E-10 
IOCHEM-1 
MM - 6 

EXXX-l.E-06 

113-0 

KFIRST--1 
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KKKQ * 10000 
JCONV-O 
INPTSH-Q 
363 CONTINUE 

CALL INDATA 

C *****************+***************** MAKE INITIAL SHEAR 

IVV-1 
I D D * I DD + 1 
DO 7 IV*1,IDD 
IDUM*NPTS 

IF( IS(IV).EQ.O) GO TO 6 
IF ( ( I V/2 )*2.£CU I V) GO TO 1 
IDUM*IS ( IV )— I 
GO TO 2 

1 IOUM-IS(IV) 

2 V I $ D * XVIS ( X B P # I V V * IDUM) 

VISD-VISD+RE 

DO 3I*IVV,IDUM 

3 VIS (I)* VIS D *RHG ( I ) 

I V V * I DUM + 1 
GO TO 7 

6 IF(IV.EQ.IDD) GO TO 2 

7 CONTINUE 
IDD-IDD-1 
VISD-VIS (1) 

C F F * 0 • 

CALL SHEAR1(CFF,VISD) 

6789 CONTINUE 

CALL EMBED 
DO 99999 JSJ«1>NPTS 

99999 IF( A8S(TH( JSJ) ).LT.l.E-8) TH(JSJ)*0.0 

IF (IDIVERG.NE.l > GO TO 1313 
JENK«IS<4) 

DO 1300 I* 1* J E NK 

RJ*SQRTCY( 1 1 ♦ Y ( I }+(XE+X(I) )**2) 

TH(I) *ATAN< Y(I > /< XE + X (I ) ) ) 

Z J * R J / RC R 
G1*G AM ( I )— 1 • 

G2 *G AM ( I ) +1 • 

5 EJ«1«+G1/2.*EM(I)*EM( I) 

ZJ1«((2./G2*EJ)**(G2/(2.*G1)))/EM(I) 

Z J 2 * S QRT ( Z J 1 ) 

IF ( X J *NE • 1 • ) Z J 2 * Z J 1 
IF(ABS(ZJ2-ZJ ) • L E • *001) GO TO 12 
IF (ZJ2-ZJ ) 14, 12, 13 

14 EM< I) »EM< D + .Ol 
GO TO 5 

13 EM ( I ) * EM < I ) - • 00 1 1 
GO TO 5 
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12 KIJ-TOJ/EJ 

PI I)»PTQJ*EJ**(-GAM( I )/Gl) 

T(I)»T(I)/TIN 

Q(I)-EM(I)/EMINF/SQRT(6AR/GAM(I)/R(I)/T(I) ) 

P(I)»P(I) /PRES *P IN 

RHQ ( I)»GEW*W(I)*P( I ) / T ( I ) 

CPX(I ) *0 • 

W( I )»0. 

CALL THERMO(T(I )»H1»CP1) 

DO 55 J * 1> NS P 
H ( J > I ) “HI C J ) 

CP(J»I)«CP1(J) 

W(I)*W(I)+ALP(J»I)/WTNOLE(J) 

CPXm-CPXt I)*ALP( I )*CP( J» I) 

55 CONTINUE 

U( I )«1./W( 1 ) 

R ( I > «RO/W< I ) 

GAM(I)»CPX(I)/(CPX(I)-R(I)/CPIN) 

1307 VIS(I)»0. 

1300 CONTINUE 
1313 CONTINUE 

DO 1200 I*1,NPTS 
1200 V I A ( I ) “ V I S ( I) * V I S I NF 
DO 7188 K*1,NPTS 
DO 7199 J«1»NSP 

7199 XS( J)“W(K)*ALP( K > / W TMOLE < J > 

FUAIR«1.00 8*(XS<1)+2.*XS<A)+2.*XS(3)+XS<6)>/(16.MXS(2)+XS<3) 
1+2.*XS(5)+XS<6) )+28.01A*XS(7>) 

PHI(K)»FUAIR/. 029161 
7188 CONTINUE 

IF(KOUNT.EQ.KKKKK) GO TO A07 
IFC II11.EQ.1 ) GO TO A07 
IF (KOUNT.EQ.KOUNTO ) GO TO A07 
I F ( ( <KOUNT/LL)*LL> .NE.KOUNT)GO TO 179 
A07 WR ITE (6> AO0 ) KOUNT 
AOS FORMAT( 7H1K0UNT=I5 ) 

WRITE (6> 5206 ) X ( 1 ) 

5206 FORMAT ( /5H X * E13.5) 

DO 8A85 I 2 3 * 1 > IDD 

IF ( BETBt 123) • EQ« 0 • ) GO TO 8A85 

I F ( I23.LT. 3) 

1WRITE(6>8A8A) 1 2 3, BE T B ( 12 3 ) 

8 A8 A FORMAT( / 5 X> 2 OHE M8E DD E D SHOCK TYPE » I1»10X» 7HBETA * »E11.3) 

I F ( 123. GE. 3) 

1WRITE (6» 2331 ) 123» BE TB ( 123 ) 

2331 FORMAT( /1AX, 11HSH0CK TYPE > I 1 , 10X, 7HBET A « »E11.3) 

8 AB 5 CONTINUE 

WRITE (6, 72 22) ( VIA( I) , I«1,NPTS ) 

7222 F0RMAT(5X2AHVISC0SITY(LB*SEC/FT**2>« (7E13.5) ) 
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WRITE (6,5207) 

5207 FORMA T(/3X, 3HPT., 11X, 1HY, 12X, 1HQ, 12X,1HT, 12 X, 1HP, 11X,2HTH, 11 X, 
12HEM11X3HRH010X3HGAM9X5HP1T0T) 

00 70 1*1# NPTS 
P(I)*P(I)/PIN 
TM»EM(I)*COS(TH(I) ) 

70 PITOT m-P<n*PRES*( (GAM(I)+ 1 . )*.5*TM**2)**(GAM( I) /(GAM( I>-1. ) >* (2 
A. *G AM ( I ) / ( GAM l I ) ♦ 1 » ) * TM**2 — ( (GAM( I )-l. ) / ( GAM ( I ) +1 .)))**( 1 . / ( 1 .-GAM 
9(1))) 

PT0*1 . /PTZERO 
DO 7070 I* 1, NPTS 
7070 PITOT(I)*PTO*PITOT(I) 

WRITE (6# 112) (I,Y(I>,Q(I),T(I),P(I),TH(I),EM{I>>RHO(I),GAM(I>»PITOT 
1 ( I ) , I * 1, NPTS ) 

DO 71 1*1, NPTS 

71 P ( I ) * P ( I ) +P IN 
WRITE ( 6, 160 ) 

160 F0RMAT(/////3X, 3HPT., 8X, 6HAL P ( 1 ) , 7X, 6H ALP ( 2 ) , 7X , 

26HALP(3),7X,6HALP(<0,7X,6HALP(5),7X,6HALP(6),7X,6HALP(7),9X,3HPHI 
2, 11X, 1HW) 

WRITE(6,112)(I,(ALP(J,I),J*1»7)»PHI(I),W(I),I*1»NPTS) 

179 CONTINUE 

IF(KOUNT.GE.KKKKK)GO TO 1572 
I F ( II11.EQ.1) GO TO 1572 
ALPHA* 1 • 0 
BE T A* 0. 0 
CALL STEP 

IF ( II11.EQ.1) GO TO ** 07 

IF(K0UNT.NE.KFIRST.QR,I13.NE.l) GO TO 300 
CALL PUNCH 

DO 301 I* JSUBL, JSUBU 
Y PRI(I)*Y (I) 

THPRI ( I ) * TH ( I ) 

301 CONTINUE 
300 CONTINUE 

CALL CHEM(FAS) 

8282 CONTINUE 
ICONT-O 

1 END* 0 
K* 1 

L *2 

887 IF( L.GE. JSUBL. AND. L. LE. JSUBU) GO TO 900 

888 K-L 
KT-L-1 

IF(IJENK.EQ.l) GO TO 67676 
I F ( L • EQ.NPTS ) GOTO 612 

IF ( L . EQ. JSUBU. AND. ICONT.EQ.l) GO TO 1622 
DO 776 JSHOCK-1, IDD 
JJSHOCK* ( JSHOCK/2 )*2 
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IFt JJSHOCK.EQ. JSHQCK) 60 TO II 
IFC K.NE.t IS(JSHOCK)-I) ) GO TO 776 
MMM* J SHOCK 
K» I S ( J SHOCK ) 

KT* K 

GO TO 8232 

11 IFt K.NE.lSt JSHQCK) ) GO TO 22 

MMM* J SHOCK 
GO TO 8232 

22 IFt K.EQ.t IS(JSHQCK)+1) ) GO TO 88888 

776 CONTINUE 
GO TO 82 3 A 
88888 K*K + 1 
L-K 

KT*L-1 

I F { L . EQ . NP TS ) GO TO 612 
GO TO 8234 
8232 L*K 
8230 IFS*1 
IP0I*1 
ALSV* ALPHA 
BES V*BETA 
KTSAV*KT 
772 CALL CPOINT 
THDE * THN ( K ) 

ALPHA* .5 
BETA* .5 
KT*KTSAV 

2194 CALL CPOINT 
IPOI* IPOI+1 

IF t IPOI.LT .20)G0 TO 2195 
WRITE (6,9191 ) 

WRITE (6,2196) 

2196 FORMATt 44H ERROR IN CPOINT ITERATION FOR SHOCK IN CHARL- 
STOP 

2195 ERTHD-ABS ( THDE-THN (K ) ) 

THDE*THN (K ) 

KT*KTS AV 

771 IF(ERTHD.GT.EXXX)GO TO 2194 
ALPHA-ALSV 
BETA-BESV 
IFS*2 

CALL HSHOCK ( MMM ) 

IFS-0 
K* K + 1 
L *L ♦ 1 
GO TO 887 
8234 CONTINUE 
IP0I*1 


I 
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ALSV-ALPHA 
BESV-BETA 
CALL CPOINT 
KT«L-1 
THDE *THN ( K ) 

ALPHA* .5 
BETA*. 5 

2601 CALL CPOINT 
KT*L-1 
IP0I*IP0I+1 

IF( 1P0I.LT.20)G0 TO 2602 
WRITE ( 6> 9 19 1 ) 

9191 FORMAT ( 1H1 ) 

WRITE(6,2197) K 

2197 FORMAT < 5 3H ERROR IN STANOARD CPOINT ITERATION IN CHAR AT POINT 12) 
STOP 

2602 ERTHD«ABS ( THDE-THN (K ) ) 

THDE *THN ( K ) 

IF(ERTHD.GT.EXXX) GO TO 2601 

ALPHA-ALS V 

BETA-BESV 

C ************************ INCREMENT COUNTERS DO NEXT C POINT 

900 CONTINUE 
K*K + 1 

IF (L.EQ.NPTS ) GO TO 7676 
L « L + 1 

IF< ICONT.EQ.l) GO TO 888 
GO TO 887 

C NOZZLE WALL CALCULATION 
612 CONTINUE 
IPQI*1 
ALSV-ALPHA 
BES V* BET A 

CALL LPOINT ( NPTS* 1 . ) 

K*NPTS 
THDE *THN ( K ) 

IF ( IPRESU.EQ.O) THDE* PN ( K ) 

ALPHA*. 5 
BETA*. 5 

2607 CALL LPOINT { NPTS# 1 • ) 

K*N PTS 
IP0I*IP0I+1 

I F ( IPOI.LT .20) GO TO 2608 
WRITE (6» 9191 ) 

WRI TE ( 6> 2 198 ) 

2198 F0RMAT(51H ERROR IN NOZZLE WALL CALCULATION ITERATION IN CHAR) 

STOP 

2608 ERTHD-ABS ( THDE-THN (K ) ) 

I F ( IPRESU.EQ.O) ERTHD*ABS(1.-THDE/PN(K)) 
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THDE - THN ( K ) 

IF ( IPRESU.EQ.O) THDE-PN(K) 

IF(ERTHD.GT.EXXX) GO TO 2607 
ALPHA-ALSV 
BETA-BESV 

C COMPLETE FIRST POINT 

IF (JENKI.EQ.l) GO TO 1818 
67676 I JENK-0 
7676 CONTINUE 

IF( JSUBL.EQ.1) GO TO 1800 
CALL LP0INT(1,0.) 

K- 1 

IPOI-1 
ALSV* ALPHA 
BES V-BETA 
THDE ■ THN ( K ) 

IF< IPRESS.EQ.O ) THOE » PN ( K ) 

ALPHA-. 5 
BETA-. 5 

2609 CALL LP0INT(1,0. ) 

K « 1 

IPOI-IPOI+1 

IF ( IPOI.LT.20)GO TO 2610 
WRITE (6,9191 ) 

WRITE (6,2199) 

2199 FORMAT ( 39H ERROR IN FIRST POINT ITERATION IN CHAR) 

STOP 

2610 ERTHO-ABS ( THOE-THN ( K ) ) 

IF ( I PRESS • E Q. 0 ) ERTHO-ABS ( 1 .-THOE / PN ( K ) ) 

THOE- THN ( K ) 

IF ( IPRESS.EQ.O ) THOE-PN(K) 

IF(ERTHD.GT.EXXX) GO TO 2609 
ALPHA-ALSV 
BETA-BESV 
1818 JENKI-0 

C SUBSONIC PRESSURE ITERATION 

1800 CONTINUE 

I F ( ISUB.EQ.O) GO TO 1622 
IF(ICONT.EQ.l) GO TO 1622 

I F ( I13.NE.1.0R.K0UNT .NE.KFIRST) GO TO 1777 
CALL DPDTH(THS, JSUBU) 

CALL DPDTH( THSU, JSUBU+1 ) 

CALL OPDTH ( THSL, JSUBU— 1 ) 

CALL THSSS(THSS) 

AUP-Y (JSUBU) 

BUP«TAN(TH( JSUBU) ) 

IF( IREGI.NE.O.ANO. JSUBU. EQ.J22 ) GO TO 8375 
CUP -THS /COS( TH( JSUBU ) )**3 

DUP- (THSS + 3.*TAN(TH( JSUBU) )*THS*THS> /C OS ( TH< J SUBU ) )**<» 
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EUP*-*.095 
GO TO 8376 

8375 CONTINUE 
CUP-O* 

DUP--1. 

EUP * 0 * 

8376 CONTINUE 

DO 381 I-JSUBL, JSUBU 
381 CALL DPDTFKDTSPRK I ) , I) 

1777 CONTINUE 

CALL SSQNIC(IDG) 

IF(IDG.EQ.O) GO TO 1622 
1111*1 
I PUNCH* 1 
GO TO *07 
1622 CONTINUE 

I F < ISUB*EO.O) GO TO 359 
IF( JCONV.EQ.l ) GO TO 360 
IF « KOUNT.NE.KKKQ-l i GO TO 361 
IF(INPTSH.EQ*0) NPTSH-NPTS 
INPTSH-1 
REWIND 7 
GO TO 363 
360 NPTS *NPTSH 
INPTSH-0 

359 DO 357 1*1, NPTS 
II-NPTS-I+1 

IF(EMN(II) .GT.EMSUB) GO TO 357 
IF( ISUB.EQ*! ) GO TO 355 
I SUB * 1 

WRITE<6, 35*) 

35* FORMAT ( 3 7H1 SUBSONIC REGION ENCOUNTERED) 

EMS T* EMS UB 
EMSUB* 1 • 15 
AP 1 * 0 * 

IREGI-0 
GO TO 359 
355 K * 1 1 + 1 

I F ( I REG I • E Q* 1 ) K * J SU B U 
GO TO 358 

357 CONTINUE 
IREGI-2 
GO TO 361 

358 CONTINUE 

I F ( J CONV • b 0* 0 ) GO TO 1*17 
JCON V* 0 

DO 1*18 1*1, NPTS 
II-NPTS-I+1 

IF ( EMN < II) *GT*EMST) GO TO 1*18 
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GO TO 1417 
1418 CONTINUE 
IREGI-2 
113*0 

EMSUB-EMST 
XOO *XBPN 
ABOO* YN ( 1 ) 

ABOOS-YN(l) 

BBOD*TAN{ THN( 1 ) ) 

CB0D*0. 

GO TO 361 
1417 CONTINUE 
AP0*PN(1> 

AP2* (PN(K)-PN(1)-AP1*< YN(K)-YN(1) ) )/(YN(K)— YN(1))**2 
DO 356 I«1,K 

PN(I)*AP0+AP1*(YN(I)-YN(1))+AP2*(YN( I)-YN(1 ) >**2 
RHON( I)*GEW*WN( I )*PN( I) /TN(I) 

IF(I.EQ.l) GO TO 356 

XJ1-1.+XJ 

11 * 1-1 

YFUN* (YNd)**XJl-YNdl)**XJl) / XJ1 

TERM* (RHON( I )*QN{ I )*COS(THN(I) )+RHON ( I 1 ) *QN{ 1 1 ) *CQS ( THN( II ) ) ) /2. 
XMASS (I) *XMASS( 1 1 ) +TERM + YFUN 
356 CONTINUE 

DS»2.*DELX/(C0S (TH(K ) )+COS ( THN ( K ) ) ) 

PS= (PN(K)-P(K ) ) /DS 

GPMS*(GAMN(K)*PN(K)*EMN(K)++2-GAM(K)+P(K)*EM(K)**2) /DS 
DS-2 . *DELX/( COS ( THNd ) H-COS ( TH ( 1 ) ) ) 

361 CONTINUE 

COMPUTE SHEAR 

IVV-1 

IDD-IDD+1 

00 77 IV s If 100 

IDUM*NPTS 

IFdS (IV) .EU.O) GO TO 76 
IFC (IV/2)*2.EQ.IV) GO TO 701 
IDUM-IS(IV)-1 
GO TO 702 

701 IDUM-ISdV) 

702 VISE* XVIS (XBPdVV, IDUM) 

VISE- VISE*RE 
D0773I-IVV, IDUM 

773 V I S N ( I ) * VIS E*RHO ( I ) 

IV V- IDUM+1 
GO TO 77 

76 IFdV.EO.IDD) GO TO 702 

77 CONTINUE 
IDD* IDD-1 
VISE* VISN ( 1 ) 
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CFF-O. 

CALL SHEAR2(CFF, VISE) 

C *********************************** RESET ALPHA AND BETA 

IF( IAVE.EQ.O) GO TO 8396 
IF (BETA.GT.O.O)GO TO 8396 
ALPHA-0.5 
BETA-0.5 
GO TO 8282 
8396 CONTINUE 

C ******************************************* STEP TAKEN OUTPUT 

J22-JSUBU 
CALL RSET 
DO 1431 I- I* IDD 
1431 BETB ( I ) ■ BE TAN ( I ) 

KQUNT-KQUNT+1 
CALL WAVES 
GO TO 6789 

1572 IF ( IPUNCH.EQ.O) STOP 
CALL PUNCH 
STOP 
END 

SUBROUTINE WAVES 
COMMON/ AC /IBOD»PIN 
COMMQN/RC/R(55 ) 

COMMON /ZY/ABOD, BBOD, C BOD# E BOD, F BOD , GBOD, 1AVE» I PUNCH, J80D, KKKKK 
COMMON/WAVE/XBOD( 5 ) , X W ALL ( 5) , A A BOD ( 5 ) , BBBODt 5 ) , CCBODC 5), EEBOD ( 5 ) , 
ZFFBOD(5),GGBOD(5 ) , LWALL, LBOD 
COMMON/PD/W(55 ), X t 55 ) 

COMMON/ AL/GAR,GEW 

COMMON/ BA/ ALP (7, 55 ), E MI NF, W I NF 

C0MM0N/CJ/CP(7,55),CP1(7),CPX( 55) 

COMMON/CK/WTMOLE( 7) 

COMMON /DB/ BE TB( 20), IS (20) , IDD, IJENK, JENKI 
CQMMON/ED/CPIN,RO 

COMMON /EF /EM (55 ), GAM (55),P(55),TH(55),Y(55) 

COMMON/ EP/GAMINF, HI ( 7 ),RINF 

COMMON/PQ/JCHEM,NSP, T(55),PTZER0,IDIVERG,TH1,XE,YE,RCR,PT0J,T0J 
1, EMI, XMU1, Q1 

C0MM0N/0A/H(7,55), Q(55),RH0(55 ), XMU( 55 ) 

COMMON/ WV/NPTS, RE, XBP,XJ 

C0MM0N/TS/DVIS(55),DVISN(55),DVISP (2 ), VI S( 55) 

REAL NUBEGIN, NUFINAL 
1 IF ( X ( 1 ) • NE. XBQD ( LBOD ) ) GO TO 2 

IF (BBBOD(LBOD).LT.BBOD) GO TO 3 
DELTA- ATAN( BBBODt LBOD) )-ATAN(BBOD) 

IF((IDD/2)*2.NE.IDD) GO TO 4 
IDD- IDD +1 
GO TO 5 
4 IDD- IDD +2 
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5 IS(IDD)* 1 

EMSQ * EM ( 1 ) ** 2 

BB--C EMSQ + 2. ) /EMSQ-GAMC 1 > *S I N ( DE L TA ) **2 

CC-(2.*EMSQ+1. )/CEMSQ**2>+{ (GAMC 1 ) + 1 . ) **2 / A . + ( GAM ( 1 J — 1 

Z • )/EMSQ)*SIN(DELTA)**2 
DD— COS (DELTA) **2/ (EMS 0**2 ) 

EX- ( A.5*BB*CC-BB**3-13.5*DD> /SORT ( ( BB**2-3*CC ) **3 ) 

EE-ACQS(EX) 

NN-A 

FF-C0S((EE+NN*A.*ATAN(1.) ) 11,) 
GG»SQRT(-BB/3»+(2»*SQRT(BB**2-3»*CC)/3»)*FF) 

EPS-ASINCGG) 

12 SE - ( S IN ( E PS ) ) **2 

GM - • 5* ( G AM ( 1)-1.) 

SED » (SINCEPS— DELTA))**2 

EM2- SORT ( (1»+GM*EMSQ*SE)/(SED*(GAM( 1 ) *EMSQ*SE-GM ) ) > 

TOP »2.*GAM< 1>*EMSQ*SE-CGAM< 1 ) — 1 • ) 

PP2- TOP / (G AM ( l)+l.)*P< 1) 

TT2- ( TOP* C ( G AM ( 1 ) -1 . ) *E MSQ*S E +2 . ) ✓ < ( GAM ( 1 ) ♦ 1. ) **2*EMS 

1Q*SE> >*T(1 ) 

BETB(IDD) - EPS ♦ AT AN ( BBOO ) 

00 333 K3-1>NPTS 
K3K- NPTS +1 -K3 
J3- K3K +2 
CALL SWITCHC J3,K3K) 

333 CONTINUE 

NPTS ■ NPTS +2 
DO 3333 I«l> IDO 

I F ( ISCD.GT.O) I S ( I > - IS(I) ♦ 2 
3333 CONTINUE 

EMC 1)«EM(2 )-EM2 

XMUC1 ) - XMU ( 2 ) -ZMU ( EM2 ) 

P(1)«P(2)»PP2 
TCI ) - T ( 2 )-TT2 

TH(1)-TH(2)-ATAN( BBS OD ( L BOO ) ) 

Wll>-0. 

CPX ( 1 )»0. 

CALL THERMO ( T ( 1)>H1,CP1) 

DO 66 J * 1> NS P 
H ( J> 1 ) -HI ( J ) 

H (J> 2) -H (J, 1) 

CP CJ» 2 ) -C P <J> l)-CPl(J) 

W(l)-W(l) * ALP(J»1)/WTM0LECJ) 

CPX(l)-CPXCl) ♦ ALP(J>1)*CP(J»1) 

CPX ( 2 ) -CPX ( 1 ) 

66 CONTINUE 

W(2)*W(1)»1./WC1) 

R(2)-R(l)-R0/W(l) 

GAM(2)*GAM(1)*CPX(1) / ( CP X ( 1 ) -R ( 1 ) / C P IN ) 
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RH0<2)-RHa<l)*GEW*wm*P<l) / T<1> 

Q(2)*Q(1)«EM(1) /EM INF /SORT (GAR /GAM ( 1) /R< 1) /Til)) 

ABOD* AABOD ( LBOD ) 

BBOD* BBBQD ( LBOD ) 

C BOD* CC BOD (LBOD) 

LBOD- LBOD + 1 

Y ( 2 ) *Y(3)*ABQD+ 3.E-2* TAN( BETB ( IDD.) ) 

Y(l)* ABOD + 3 • E— 2* BBOD 

WRITE (6. 1313) BETB(IDD)»X( 1 ). DELTA 

1313 FORMAT ( 1H. 10H *♦**♦****,//* A SHOCK WAVE BETB-*. E 10. 3. *HAS BEEN I 
ZNSERTED AT X**, E10.3. *WITH A TURNING ANGLE**. E 10. 3 ) 
IF(XWALL(LWALL).EQ.XB0D(LB0D-1>> GO TO 9 
DO 1977 11*1. NPTS 
1977 X(II)-X(II>+3.E-2 
9 XBP* X ( 1 ) 

IDDD * IDD -1 
DO 1776 JR*1. IDDD 
L* 1 

IF( ( JR/2 )*2.NE. JR) L*-l 
IF (IS (JR ).EQ.O) GO TO 1776 

Y(IS(JR)+L)*Y( IS(JR) ) *Y( IS(JR) ) +3 . E-2* TAN ( BE T B < J R ) ) 

1776 CONTINUE 
GO TO 2 

3 DNU *ATAN(BBOD)-ATAN(BBBOD(LBOD> ) 

WRITE(6.7713) DNU.X(l) 

7713 FORMATUH. 10H ****♦****,// +A DISCRET EXPANSION OF DNU**. E 10 . 3 . *H A 
ZS BEEN INSERTED AT*.E10.3) 

S0EM*SQRT(EM(1)*EM(1)-1. ) 

G-SQRT( (GAM( 1)+1. ) /(GAM (1)-1. ) ) 

GN* SORT ( (GAM ( 1 ) -1 • ) / ( GAM ( 1 ) +1 • ) ) 

NUBEGIN“G*ATAN(GN*SQEM)-ATAN( SQEM) 

UMU- ASIN(1./EM(1) > 

NUFINAL*NUBEGIN +DNU 
EMF* EM ( 1 ) + .001 
7 SQEMF* SORT (EMF*EMF-1. ) 

FINAL- G*ATAN(GN*SQEMF)-ATAN( SQEMF) 

IF(ABS(NUFINAL— FINAL) .LE..0001) GO TO 16 
IF (FINAL-NUFINAL ) 1^.16.15 

14 EMF* EMF +.001 
GO TO 7 

15 EMF- EMF - .0001333 
GO TO 7 

16 UMUF«ASIN( 1. /EMF ) 

FAN* DNU +UMU -UMUF 
FIRST- UMU + AT AN ( B BOD ) 

FLINE- FIRST -FAN 
GR*2. / ( G AM ( 1 ) -1 • ) 

PF»P(1)*((EM(1) **2+GR)/(EMF**2+GR) )**(GAM(1)/(GAM(1)-1.)) 

RHOF*RHO( 1)*(PF/P( 1) ) **( 1 . /GAM ( 1 ) ) 
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QQ»-(2.*GAM(1)/<GAM( 1)-1. ) )+(PF/RHOF— P(1)/RH0(1) ) 
QF- SORT ( Q ( 1 ) **2 +QQ) 

TF • T(1)*(PF/PC1) )**( (GAM(l)-l#) /GAM( 1) ) 
IF(LBOD.LE.l) GD TO 77777 

IF( (YC2)-Y(1) ).GE. (Y (4)-Y<3) )*.2) GO TO 77777 
00 71313 LR-2/NPTS 
KR3* 1 + LR 

71313 CALL SWITCH(LR/KR3> 

NPTS-NPTS-1 
DO 19799 1*1/ IDO 

19799 1F(IS(I) .GT.O) IS(I) * IS ( I » - 1 
77777 CONTINUE 

DO 1978 K3-1/NPTS 
K3K- NPTS +1 -K3 
J3* K3K +2 
CALL SWITCH ( J3/ K3K ) 

1978 CONTINUE 

NPTS - NPTS + 2 
DO 1979 1*1/ I DD 

I F ( IS(I).GT.O) IS(I) - IS(I) + 2 

1979 CONTINUE 

EM( 1 ) *EM( 2 ) -EMF 

XMU(1)-XMU(2)»UMUF 

P(1)*P(2)*PF 

TH<1)-TH(2)*ATAN(8BB0D(LB0D) ) 

T(1)*T(2)*TF 
RH0(1)*RH0(2)*RH0F 
Q ( 1 ) *Q(2 ) *QF 
A80D- AABOD(LBOD) 

BBOD- BBBQD(LBOD) 

CBOD* CCBOD(LBOD) 

LBOD- LBOD + 1 

Y ( 3 ) ■ ABQD + 3.E-2*TAN(FIRST> 

Y (2 ) *ABQD + 3.E-2*TAN(FLINE) 

Y ( 1 ) ■ ABQD + 3 • E—2* BBO D 

IF(XWALL(LWALL).EQ.XBQD(LB0D-1) ) GO TO 11 
DO 1778 II-l/NPTS 

1778 X(II>-XC II)+3.E-2 
11 XBP*X(1) 

DO 1779 J R* 1 » IDD 
L-l 

IF ( ( JR/2)*2.NE. JR) L--1 
IF(ISUR).EQ.O) GO TO 1779 

Y(IS(JR)+L)*Y(IS(JR) ) ■ Y ( IS ( J R ) ) +3 . E-2 + T AN ( BETS ( JR ) ) 

1779 CONTINUE 

2 IF « X ( 1 ) .NE.XWALL ( LWALL) ) GO TO 901 
IF( FFBOD( LWALL) .GT.FBOD) GO TO 33 
DELTA- ABS ( ATAN ( FBOD )-ATAN ( FFBOD ( LWALL ) ) ) 

IF< (I0D/2)*2.EQ.IDD) GO TO 
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IDD- IDD +1 
GO TO 555 
44 IDD- IDD + 2 
555 IS ( IDD ) - NPTS 

EMSQ - EM ( NPTS )**2 

BB*-( EMSQ+2. ) /EMSQ-GAM( NP TS ) *S I N ( DE L T A ) **Z 

CC- (2.+EMSQ+1. >/ (EMSQ**2)+( (GAM( N PTS ) + 1 . ) ** 2 /4 . + ( GAM ( NPTS)-1 
Z. )/ EMSQ >*S IN ( DELTA )**2 
DD--COS ( DELTA) **2/ (EMSQ**2 ) 

EX- ( 4.5*BB*CC-BB**3-13.5*DD ) /SORT ( ( BB**2-3*CC ) **3 ) 

EE-ACOS(EX) 

NN-4 

FF-COS ( (EE+NN*4.*ATAN( 1. ) ) /3. ) 

GG-SQRT(-BB/3.+(2.+SQRT(BB+*2-3.+CC) /3. )*FF) 

EPS-ASIN(GG) 

1112 SE - ( S IN ( E PS ) ) **2 

GM - • 5+ ( G AM ( NPTS)-1.) 

SED « (SIN(EPS-DELTA))**2 

EM2- SQRT( ( l.+GM+EMSQ+SE) /( SED*(GAM( NPTS ) +EMSQ+SE-GM > ) > 

TOP «2.*GAM( NPTS ) * EM SQ* SE- < G AM ( NPTS)-1.) 

PP2- TOP / ( GAM ( NPTS)+1.)*P( NPTS) 

TT2- ( TOP* ( ( GAM( N P TS ) -1 . ) *E MS Q* S E +2 . ) / ( ( GAM ( NP TS ) + 1 . ) **Z * EMS 

1Q*SE ) ) *T ( NPTS ) 

BETB(IDD)- -(EPS-ATAN (FBOD ) ) 

EM( 1+NPTS ) -EM(2+NPTS ) -EM 2 

XMU( 1+NPTS )-XMU( 2+NPTS )-ZMU( EM2 ) 

P(1+NPTS)-P(2+NPTS)-PP2 
T( 1+NPTS )»T( 2+NPTS )-TT2 

TH( 1+NPTS )*TH( 2+NPTS ) » AT AN ( FFBOD< LWALL > ) 

DO 90000 J-l» NSP 

AL P(J» 1+NPTS) -ALP(J» NPTS) 

90000 ALP(J»2+NPTS )-ALP( J> N PTS ) 

W(l+NPTS)-0. 

CPX( 1+NPTS ) *0. 

CALL THERMOt T ( NPTS+ 1)>H1,CP1) 

DO 6666 J-ltNSP 
H < J, NPTS + 1 ) -HI ( J ) 

H ( J> NPT S + 2 ) -H (J,NPTS+ 1) 

CP ( J » NP TS + 2 ) »C P (J» NPTS+1)»CP1(J) 

W ( 1+NPTS )«W( 1+NPTS )+ ALP( J, 1+NPTS) /WTMOLE(J) 
CPX(1+NPTS)»CPX(1+NPTS> + ALP ( J, 1+NPTS > *CP ( J » 1+NPTS ) 

CPX ( 2+NPTS ) - C P X ( 1+NPTS) 

6666 CONTINUE 

VIS (1+NPTS ) -VIS (2 + NPTS )- VIS (NPTS ) 

W(1+NPTS)-W(2+NPTS)-1./W(1+NPTS) 

R ( 2+NPTS ) - R ( 1+NPTS )«RO/W( 1+NPTS ) 

GAM ( 1+NPTS ) -GAM ( 2+NP TS ) -CP X ( 1 + NPTS)/ (CPX ( 1 + NPTS )-R( 1+NPTS) /CP IN) 
RHO ( 2+NPTS )»RH0(1+NPTS)»GEW*W(1+NPTS)*P( 1+NPTS) /T( 1+NPTS) 

Q ( 2+NPTS )«Q( 1+NPTS )-EM( 1+NPTS) /EMINF /S OR T( GAR /GAM ( 1+NPTS ) /R( 1+NPT 
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ZS)/T(1+NPTS) ) 

EBOD-EEBOD (LWALL ) 

FBOD-FFBOD( LWALL) 

GBOD-GGBOD(LWALL) 

LWALL-LWALL+ 1 

Y(1+NPTS)-Y(NPTS)*EBQD +3.E-2* T AN ( B E T B ( IOD ) ) 
Y(2+NPTS)-EBOD +3.E-2+FBOD 
NPTS - NPTS +2 

WRITE (6, 1313) BETB(IDD),X(1), DELTA 
DO 1987 II-l.NPTS 
1987 X( II )-X( l)+3. E-2 
X8P * X ( 1 ) 

IDDD-IDD-1 
DO 1780 JR*1>IDDD 
L* 1 

IFC (JR/2)*2.NE.JR) L*-l 
I F ( IS(JR) • EQ • 0 ) GO TO 1780 

Y(IS(JR)+L)*Y(IS(JR) ) « Y ( I S ( J R ) ) +3 . E-2 + T AN ( BETB UR ) ) 

1780 CONTINUE 
GO TO 901 

33 DNU- ATAN(FFBOD(LWALL))-ATAN(FBOD) 

WRITE (6. 7713 ) DNU,X(1) 

SQE M»SQRT( EM (NPTS )*EM (NPTS )-l. ) 

G»SQRT((GAM(NPTS)+1. ) / (GAM (NPTS )-l. ) ) 

GN»SQRT( (GAM(NPTS)-l. >/ (GAM (NPTS )+l. ) ) 
NUBEGIN»G*ATAN(GN*SQEM)-ATAN( SQEM) 

UMU* ASIN( 1. /EMINPTS ) ) 

NUFINAL-NUBEGIN + DNU 
EMF* EM ( NPTS) + .001 

IF ( EM ( NPTSJ.LT. 2.) EMF«EM(NPTS)+1./EM(NPTS) 

77 SQEMF ■ SORT (EMF+EMF-1 .) 

FINAL- G*ATAN(GN*SQEMF)-ATAN( SQEMF ) 

IF(ABS(NUFINAL-FINAL) .LE..0001) GO TO 1116 
IF (FINAL-NUFINAL ) 11 1 A. 1116. 1115 

1114 EMF- EMF +.001 
GO TO 77 

1115 EMF- EMF - .0001333 
GO TO 77 

1116 UMUF«ASIN(1./EMF ) 

FAN- DNU +UMU -UMUF 
FIRST- -UMU + ATAN(FBOD) 

FLINE- FIRST +FAN 
GR»2./(GAM(NPTS)-1.) 

PF-P ( NPTS )*(( EM ( NPTS ) **2+GR)/(EMF**2+GR) )**( GAM (NPTS ) / 
Z(GAM(NPTSJ— 1. ) ) 

RHOF»RHO(NPTS )*(PF/P (NPTS ) )**(1./ GAM (NPTS )» 

OQ— (2.+GAM (NPTS)/ (GAM( NPTS) -1 . ) ) * ( P F / RHOF-P ( N P TS ) /RHO(NPTS) ) 
QF- SQRT(Q(NPTS)**2 +QQ ) 

TF- T (NPTS )*( PF/P( NPTS) ) ** ( ( G AM ( N P T S )-l. ) /GAM (NPTS) ) 
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EM(2+NPTS)*EM(1+NPTS) *EMF 
XMU { 1+NPTS )*XMU< 2+NPTS )*UMUF 
P (2+NPTS )*P( 1 + NPTS )*PF 

TH( 2+NPTS )*TH< 1+NPTS I * ATAN ( FF80D ( LW ALL ) ) 

T (2+NPTS ) * T{ 1+NPTS )»TF 

RHQ( 2+NPTS ) *RHO( 1+NPTS)*RH0F 

Q< 2+NPTS I *Q( 1+NPTS )»QF 

DO 90001 J*l, NSP 

ALP ( J, 1+NPTS)*ALP( J,NPTS> 

90001 ALP( J,2+NPTS)«ALP< J, NPTS) 

W( 1+NPTS ) *0« 

CPX< 1+NPTS )-0. 

CALL THERMO! T ( NPTS + 1), HI, CP1> 

DO 66669 J * 1, NS P 
H (J, NPTS + 1 ) *H1 ( J ) 

H ( J, NPTS+2 ) -H ( J #NP TS + 1) 

CP C J, NPTS+ 2>*CP U,NPTS + 1)*CP1< J) 

W( 1+NPTS )*W( 1+NPTS )+ ALP( J, 1+NPTS > /WTMOLE ( J ) 
CPX(1+NPTS)«CPX(1+NPTS) + ALP ( J, 1+NPTS ) *CP ( J , 1+NPTS ) 

CPX< 2+NPTS )*CPX< 1+NPTS) 

66669 CONTINUE 

W< 1+NPTS )-W( 2+NPTS )* 1 . /W ( 1+NPTS ) 

R( 2+NPTS >*R( 1+NPTS >*RO/W( 1+NPTS ) 

6AM ( 1+NPTS >*GAM( 2+NPTS ) -CP X( 1+NPTS)/ ( CP X ( 1 +N PTS )-R ( 1 +NP TS ) /CP IN) 
NPTS - NPTS + 2 
E BOD* EE BOD ( L WALL ) 

F BO D*F F B OD ( LWALL ) 

GBOD* GGBOD ( L WALL ) 

LWALL- LWALL +1 

Y ( NPTS) *EBOD + 3.E-2* FBOD 
Y ( NPTS— 1 ) *E BOD ♦ 3 .E-2*TAN( FLINE ) 

Y (NPTS-2 ) * EBOD ♦ 3 . 6-2* T AN ( F IRS T ) 

IFC Y(NPTS-2) .GT.YCNPTS-3) > GO TO 99999 
NNN-NPTS-3 

IF <Y( NPTS-2 ) .LT.Y(NPTS-A) ) NNN*NP TS-A 

DO 91313 L J *NNN» NP TS 

KR3-1+LJ 

I F « (NPTS-NNN) .EQ.A ) KR3-2 + LJ 
91313 CALL SWITCH! LJ,KR3 > 

NPTS-NPTS-1 

I F t (NPTS-NNN) .EQ. 3 ) NPTS*NPTS-1 
99999 CONTINUE 

DO 1777 11*1, NPTS 
1777 X(II)*X(l)+3.E-2 
XBP-X(l) 

DO 1781 JR*1, IDD 
L-l 

IF ( ( JR/2)*2.NE. JR) L*-l 
IF(IS(JR).EO.O) GO TO 1781 
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Y(IS(JR)+L)*Y(IS(JR) )*Y(IS(JR) ) +3 . E-2* TAN < BETB ( J R > ) 

1781 CONTINUE 
901 RETURN 
END 

SUBROUTINE CROSS <K» KK,KZ ) 

COMMON/ AL /GAR# GEW 

CQMMON/B A/ AL P ( 7# 55 )>EMINF#WINF 

C0MM0N/CK/WTM0LE(7) 

COMMON /CJ/CP(7#55)#CP1(7)»CPX(55) 

C0MM0N/DB/BETB(20)#IS<20)# IDD# IJENK# JENKI 
COMMON/DP/ YN ( 55 ) 

COMMON/ED/CP IN# RO 

COMMON/EF/EM(55 ) #G AM { 55 )»P(55)#TH(55 )# Y(55 ) 

C0MM0N/EP/GAMINF#H1(7 ),RINF 
COMMON/GK/DELX 

COMMON /HM/ALPN(7#55)#CPN(7#55)#CPXN(55 ) # EMN( 5 5 ) # G AMN ( 5 5 ) # HN ( 7# 55 ) # 
ZLS# PN(55)»QN( 55 ) # RHON ( 55 ) # RN C 5 5 ) # THN C 55 ) # TN ( 55 ) # WN ( 5 5 ) # X MUN ( 55 ) 
COMMON /HP/BET AN (20)» IEMBED 

COMMON/PQ/JCHEM#NSP»T(55)#PTZERO#IDIVERG»TH1»XE»YE#RCR#PTOJ»TOJ 
1# EMI# XMU1# Q1 

C0MM0N/QA/HC7#55)#Q(55)#RH0(55)#XMU(55) 

COMMON /WV/NPTS# RE# XBP#XJ 
IF( <KZ/2)*2.EQ.KZ) GO TO 3 
□ 0 1 JR»2# IOD# 2 
IF ( C I S ( JR)-K) .NE.l ) GO TO 1 
YUP»Y(K)+DELX*TAN(BET8(KZ) ) 

YDOWN m Y( IS (JR) )+DELX*TAN(BETB( JR) ) 

IF ( YDOWN. GT.YUP) GO TO 1 

D* ( Y( IS ( JR ) )-Y(K) ) /( TAN(BETB(KZ ) )-TAN ( BETB ( JR ) ) ) 

YCROSS«Y(K )+TAN (BETB ( KZ ) )*D 
DUP«ABS(TH(K)-TH(K-1 ) ) 

DDOWN*ABS ( TH( IS ( JR ) +1 ) -TH( I S ( JR ) ) ) 

30 DELTA-DUP 

EMSQ-EM(IS( JR)+1)**2 

BB--(EMSQ+2. ) /EMSQ— G AM( IS ( JR ) ♦ 1 ) *S IN ( DEL TA ) **2 

CC-(2.*EMSQ + 1. )/(EMSQ**2) + ( ( GAM ( I S ( J R ) + 1 ) + 1 . ) **2 / A . + ( GAM { IS (JR) + 1) 
Z-l. ) /EMSQ)+SIN(DELTA)**2 
DD— C0S(DELTA)**2/(EMSQ**2) 

EX» ( A.5*BB*CC-BB**3-13.5*DD> /SORT ( (BB**2— 3*CC)**3 ) 

EE « AC OS ( EX ) 

NN* A 

FF«COS( CEE+NN*A.*ATAN( 1. ) ) /3. ) 

GG«SQRT(-BB/3.+(2.*SQRT(BB**2-3.*CC) /3. )*FF) 

EPS-ASIN(GG) 

12 SE » ( S IN ( E PS ) ) +*2 

GM«.5+(GAM(IS(JR)+l)-i. ) 

SED* (SINtEPS— OUP) ) **2 

EM2«SQRT( ( l.+GM*EMSQ*SE) /( SED*<GAM{ I S ( JR ) ♦ 1 > *EMSQ*SE-GM ) ) ) 
T0P-2.*GAM< I S < JR) + 1)*EMSQ*SE-(GAM(IS( JR )♦!)-!. ) 
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PP2»TQP/(GAM<IS<JR)+1>*1.)*P(IS(JR>+1> 

TT2- C TOP*( (GAM( IS l JR) +1 ) +1 . ) *E MS Q*S E +2 . ) / ( ( GAM ( IS ( JR > ♦ 1 > +1. ) ♦* 2* 
ZEMSQ*SE) >*T( ISC JR)+1 ) 

BUP-EPS-TH(IS(JR)+1) 

DELT A*DDOWN 
EMSQ»EM(K-1)**2 

BB--(EMSQ+2.)/EMSQ-GAM( K- 1 )*SIN( DELT A) **2 

CC-(2.*EMS0+1.)/(EMSQ**2) + ((GAM( K- 1 I + 1 . ) **2 /A . + ( GAM ( K- 1) 
Z»)/EMSQ)*SIN(DELTA)+*2 
DD m — C0S(DELTA)**2/ (EMSQ*+2 ) 

EX« ( A.5*BB*CC-BB** 3-13. 5*DD) /SORT ( (BB**2-3*CC )**3 ) 

EE-ACOS(EX) 

NN* A 

FF-COSt (EE+NN*A.*ATAN(1. ) ) /3. ) 

GG-SQRTC-BB/3.-M2. *S QRT < BB **2-3 . *CC > /3. >*FF) 

EPS* AS IN ( GG ) 

112 SE * ( SIN ( EPS ) ) **2 
GM* • 5 * ( G AM ( K— 1 ) — 1 • > 

SED* ( SIN(EPS-DDOWN) ) **2 

EM3* SORT ( ( l.+GM*EMSQ*SE ) / ( SED* (GAM (K-l )*EMSQ*S E-GM ) ) ) 
TOP*2.*GAM(K-l)*EMSQ*SE-(GAM(K-l)-l. ) 

PP3*TOP/(GAM( K— 1 ) ♦ 1 . ) **P ( K— 1 ) 

TT3* ( TOP* ( (GAM (K-l >- 1 . > *EM SQ*S E +2 . > / ( ( G AM ( K- 1 ) + 1 . >**2*EMSQ*SEJ) 
Z*T (K— 1 ) 

BDOWN*— EPS+TH(K— 1) 

AUP ■ TH ( IS ( JR) +1 )+DUP 
ADQWN*TH(K— 1)— DDOWN 
DIF*AUP— ADOWN 

IF(ABS(DIF).LE.l.E-A.AND.ABS(PP2-PP3).LE.l.E-3) GO TO 90 
IF (DIF.LT.O. ) GO TO 91 
DUP *DUP* .9973 
DD0WN*DD0WN*1.0027 
GO TO 30 
91 OUP-DUP+l.Ol 

DD0WN-DD0WN+.99 
GO TO 30 

90 IS ( KZ ) *IS ( JR ) +1 
IS ( J R ) *K-1 
BETAN(KZ)*BUP 
BETAN(JR)*BDOWN 
K*IS (KZ ) 

YN( IS(KZ) )»YN(IS(KZ)-1)*YCR0SS+TAN(BUP)*(DELX-D> 

YN( IS (JR) >-YN( ISC JR) ♦ 1 >* YC RO S S* TAN ( B DOWN ) * (OELX-D) 

EMN ( IS ( KZ ) -1 ) *EM2 
XMUN ( IS ( KZ )— 1 ) *ZMU(EM2> 

PN(IS(KZ)— 1)*PP2 
TN(IS(KZ)-1)-TT2 
THN( IS(KZ)-1)*AUP 
WN<IS<KZ)-1)«0. 
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CPXN(IS(KZ>-1)»0. 

CALL THERM0(TN(IS(KZ)-1),H1,CP1> 

DO 66 J « 1> N S P 

HN( J, IS(KZ)-1)«H1( J> 

CPN< J>IS(KZ)-1)*CP1( J ) 

WN(IS<KZ)-1) «WN(.IS(KZ )-l ) + AL P ( J , I S ( K Z ) -1 J / WTMOLE ( J ) 
CPXN<IS(KZ)-1)»CPXN(IS<KZ)-1>+ALP<J,IS(KZ>-1)*CPN<J,IS<KZ)-1) 

66 CONTINUE 

WN( IS (KZ )-l)»l. /WN (IS (KZ ) — 1 ) 

RN< ISCKZ >-l)»RO/WN(IS(KZ)-l) 

GANN ( I S ( KZ )-l >*CPXN( IS(KZ )-l ) / ( CP XN ( I S ( K Z >-l ) -RN< IS ( KZ )-l ) /CP IN ) 
RHON(IS(KZ)-l)»GEW*WN(IS(KZ)-l)*PN(IS(KZ)-l) /TN ( I S ( KZ ) -1 ) 

QNdS(KZ) — 1)*EMN(IS(KZ)-1 ) / EM INF/ SORT ( GAR/GAMN ( IS ( KZ >-l) /RN ( IS ( K Z » 
Z-II /TNdS(KZ)-l) ) 

EMN ( I S ( JR)+1)*EM3 
XMUNdSt JR)+1)«ZMU(EM3) 

PN ( IS C JR) +1 ) * PP3 
TNdS(JR)d>«TT3 
THN ( I S ( JR ) +1 ) ■ AOQWN 
WN( IS ( JR)+1)«0. 

CPXN(IS( JR)+1)»0. 

CALL THERMOt TN( IS( JR > +1 > > H 1» C P 1 > 

DO 666 J ■ 1» N S P 
HN ( IS C JR » + 1 ) -HI C J) 

CPN(J*IS(JR)+1)”CP1( J) 

WN( IS ( JR)+1> «WN( IS ( JR ) + l) +-ALP( J» IS ( JR) +1) /WTMOLE( J > 

CPXN< IS( JR)+1)«CPXN( IS( JR)+I)+ALP( J# IS( JR)+1)*CPN( J, IS( JR)+1) 

666 CONTINUE 

WN( IS ( J R ) + 1 ) «1 « /WN( IS (JR)+1) 

RN(IS(JR)+l)«RO/WN(IS(JR)+l) 

GAMN(IS(JR)+l)«CPN(IS(JR) + l)/(CPXNdS( JR) + 1)-RN(IS( JR) + I) /CP IN) 
RHONCISI JR)*l)»GEW*WNdS( JR)+1)*PN( IS(JR)+1)/TNCIS(JR)+I) 

QN( IS( JR) + 1) »EMN( IS( JR)+1) /EMINF /S QR T ( GAR /GAMN (IS C JR ) +1 ) /RN( IS (JR) 
Z+1)/TN(IS(JR)+I) ) 

GO TO 1313 
1 CONTINUE 
GO TO 1313 
3 L* 1 

IF ( (KZ/ZJ+2.EG.KZ) L--1 
DO 2 J«1,IDD 

IF( ( ISC J )-K) .NE.2) GO TO 2 
YUPPER»Y( IS ( J ) ) +DELX*TAN( BE TB(,J ) ) 

YLOWER»Y(K)+DELX*TAN( BETB(KZ) ) 

I F ( YUPPER.GT.YLOWER) GO TO 2 

D« ( Y (IS ( J ) )— Y (K ) ) / (TAN(BETB(KZ ) )— TAN(BETB(J>) ) 
YCROSS*Y(K)+TAN(BETB(KZ) )*D 
DU-ABS(TH( IS ( J)+L)-TH( I S ( J ) ) ) 

DL»ABS(TH( IS (KZ)+L )-TH( IS(KZ ) ) ) 

DELTA-DU+DL 
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EMSQ”EM(IS(KZ)+1-L)**2 

BB“-(EMSQ+2. ) /EMSQ-GAM( IS(KZ ) + 1-L > *S IN ( DEL T A ) ** 2 

CC«(2.*EMSQ+l.)/(EMSQ*+2)+( ( G AM ( I S < K Z ) ♦ I-L ) *1 . ) **2 /A . + ( G AM ( IS ( K Z ) + 
Zl-LI-1. )/EMSQ)*S IN (DELTA )**2 
DD”-CQS(0ELTA)**2/(EMSQ**2 ) 

EX«(A.5*BB*CC-BB**3-13.5*DD)/SQRT( (BB**2-3*CC )**3 ) 

EE m AC OS (EX) 

NN» A 

FF”COS( <EE+NN*A.*ATANtl. ) ) ✓ 3 . > 

GG”SQRT(-BB/3.+(2.*SQRT(BB**2-3.*CC) /3. )*FF) 

EPS-ASIN(GG) 

912 SE * ( SIN ( EPS ) ) * + 2 

GM“ • 5+ ( G AM ( I S ( KZ ) * 1-L )-l. ) 

SED» ( SIN ( EPS-DELTA ) ) **2 

EM2 « SORT ( (1»+GM*EMSQ*SE)/(SED*(GAM(IS(KZ)+1-L) *EMSQ*SE-GM ) ) ) 
TOP”2.*GAM(IS(KZ)+l-L > *EMSQ* SE- < G AM < IS < K Z ) +1-L ) -1 . ) 

PP2”T0P/(GAM( IS(KZ )+l-L)+l. )*P(IS(KZ )+l-L) 

TT2« ( TOP * ( (GAM( IS(KZ >+l-L)-l. )*EMSQ*SE + 2. ) / < < GAM( IS ( KZ > +1-L > +1. >** 
Z2*EMSQ*SE) )*T(IS(KZ)+1-L) 

BBETB — (EPS-TH( ISCKZ) +1-U )*L 

EMN(IS(KZ)+1)-EM2 

XMUN( I S ( K Z ) + 1 )«ZMU(EM2) 

PN(IS(KZ»+1)-PP2 
TN ( IS ( KZ ) +1 ) ■ TT2 
THN(IS(KZ)+1)*AUP 
WN ( IS(KZ)+1)«0. 

CPXN ( IS(KZ)*1>»0. 

CALL THERMO (TN( IS(KZ) +1), HI, CPI ) 

DO A A JJ«1,NSP 
HN(JJ»IS(KZ)+1)“HI(JJ ) 

CPN ( J J, I S ( KZ ) +1 ) » C P 1 ( JJ> 

WN(IS(KZ)+1)”WN( IS(KZ )+l)+ALP( JJ> IS(KZ )+l)/WTMOLE( JJ) 
CPXN(IS(KZ)+1)”CPXN<IS(KZ)+1)+ALP(JJ,IS(KZ)+1)*CPN<JJ,IS<KZ)+1) 

A A CONTINUE 

WN(IS(KZ)+1)”1./WN(IS(KZ)+1> 

RN ( IS (KZ )+l) *RO/WN( IS (KZ )+l) 

GAMN( IS(KZ) +1 )»CPXN( IS(KZ)+1)/(CPXN( IS ( KZ ) +1 ) -RN ( IS(KZ)+1)/CPIN) 
RHON(IS(KZ)+l)”GEW*WN(IS(KZ)+l)*PN(IS(KZ)+l) ✓ T N ( I S ( K Z ) > 1 ) 

QNC IS (KZ )+l) »EMN( I$( KZ )+l ) / E M I N F / SQ RT ( G AR / G AMN ( IS(KZ)+1)/RN(IS(KZ) 
Z+1)/TN(IS(KZ)+1) ) 

YN(IS(KZ)+l)”YN(IS(KZ)+l-L)“YCROSS+TAN(BBETB)*(DELX-0) 

IF(L.NE.l) GO TO 7 
JR» IS (KZ ) +2 
DO 71313 LR*JR,NPTS 
KR3 ”2 +LR 

71313 CALL SWITCH( LR» KR3 ) 

IS ( J )»0 
BETAN(J)«0. 

BETAN(KZ ) “BBETB 
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NPTS*NPTS-2 
KK * 1 

DO 333 1*1, IDD 

IF ( I S ( I ) • GT • I S ( KZ ) ) I S ( I ) * I S ( I )— 2 
333 CONTINUE 
GO TO 2 
7 JR»IS(KZ)-1 

DO 91313 LR* JR, NPTS 
KR3*2+LR 

91313 CALL SWITCH( LR, KR3 ) 

IS ( J ) *IS ( KZ) 

ISIKZ )*0 
BETAN (KZ ) *0» 

BET AN ( J ) *BBETB 
NPTS*NPTS-2 
KK * 1 

DO 3333 I*1,I0D 

IF(IS(1).GT.IS(J) ) IS ( I ) - I S ( I)-2 
3333 CONTINUE 
2 CONTINUE 
1313 RETURN 
END 

SUBROUTINE EMBEO 

COMMON/AC /IBQD, PIN 

COMMON/AL/GAR,GEW 

COMMON /AX /J SUBL, JSUBU 

C0MM0N/BA/ALP(7»55),EMINF,WINF 

COMMON/BO/XMASS ( 55 ) 

CQMM0N/CJ/CP(7,55),CP1(7),CPX(55) 

COMMON/CK/WTMOLE (7 ) 

C0MM0N/DB/BETB(20), IS (20), IDD, IJENK, JENKI 
COMMON/EO/CPIN, RO 

COMMON /EF/EM( 55),GAM(55),P(55),TH(55),Y(55) 

COMMON /E P/GAMINF, HI ( 7),RINF 

COMMON/GK/OELX 

COMMQN/HL/ ALPHA, BETA 

C0MM0N/HM/ALPN(7,55),CPN(7,55),CPXN(55),EMN(55),GAMN(55) ,HN(7»55>, 
IL,PN(55),QN(55),RH0N(55),RN(55),THN(55), TN ( 55 ) , WN ( 55 ) , XMUN ( 55 ) 
COMMON/HP/BETAN(20), I EMBED 
COMMON/PD/W(55),X(55 ) 

COMMON/PQ/JCHEM,NSP, T (55) 

COMMON/OA/H(7,55),Q(55),RHO(55),XMU(55) 

COMMON/RC/R( 55) 

COMMON/TS/OVIS(55 ) , 0 V I SN ( 5 5 ) , D VIS P (2 ) , VIS ( 55 > , VISN ( 55 ) , VIS P < 2 > 
COMMON /TU/BQ (55 ) , D AL P ( 7, 55 ) , DBQ ( 5 5 ) , DC P X ( 5 5 ) , DO ALP ( 7, 55 ) , DT AU ( 55 ) , 
1 TAU ( 5 5 ) 

COMMON/ WV/NPTS, RE, XBP,XJ 
DATA EPPRES/l.E-OA/ 

IEMBED*0 
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ALPHA-1. 

BETA-0. 

ALPH-1. 

BET-0. 

OELX-1. 

DO 500 M« 1, 2 

I F ( IS CM) .NE.O) GO TQ 500 

IM-NPTS-2 

00 1 1-2, IM 

IF ( l.GE. JSUBL.AND. I.LT.JSUBU) GQ TQ 1 
12- 1 
II- 12-1 
I3-I2+1 
I A- 12+2 

T10- Y ( II )-Y ( 1 2 ) 

Tll-Y< I2)-Y< 131 
T12 ■ Y( 13 ) — Y ( I A ) 

IF(T10.LT.1.E-0A.0R.T11.LT.1.E-0A.0R.T12.LT. l.E-OA) GQ TO 1 
OZ « Y ( 1+ 1 ) -Y(I) 

IF < <M/2)*2.EQ.M) GQ TO 200 

XP2-XMKALPH , BET , TH ( I + l ) , XMU ( I + l ) » 0. , 0 . ) 

XP1-XM1 ( ALPH » BE T ,THU ),XMUU >,0.,0.) 

GO TO 201 

200 CONTINUE 

XP2-XM2CALPH , BET » TH ( I +1 ) , XMU < I+l ) , 0 . , 0. ) 

XP1-XM2( ALPH , BE T ,TH(I >,XMUU ),0.,0.) 

201 DZL AM-XP1-XP2 
IF(DZLAM.LT.l.E-lO) GO TO 1 
DI-DZ/DZLAM 

IF ( 01 ) 1,1,7 

7 IF(DI.GT.10.*DELX) GO TO 1 
P1S-P(I1)*P(I1) 

P2S«P(I2)*P(I2) 

P3S-P ( 13 ) *P( 13 ) 

PAS-PdA)*P(IA) 

Tl-P(Il) — P (12) 

T2-P ( 12 )— P ( 13 ) 

T 3- P { 13 ) — P ( I A ) 

TA-P1S-P2S 

T5-P2S-P3S 

T6-P3S-PAS 

T7«P1S*P(I1)-P2S*P(I2) 

T8-P2S*P( 12 )— P3S+P ( 13 ) 

T9-P3S*P(I3)-PAS*PdA ) 

CALL SOLVE (T1 ,T2 ,T3 , TA ,T5 ,T6 ,T7 ,T8 , T9 ,E ) 

CALL S0LVE(T10,T11,T12,TA ,T5 , T6 ,T7 ,T8 ,T9 ,DB) 

CALL SOLVE ( T1 , T2 , T3 , T10, Til, T12, T7 , T8 , T9 , DC ) 

CALL SOLVE ( T 1 , T2 ,T3 , T A , T5 ,T6 , T 10, T 1 1 , T12 , DO ) 

B-DB/E 
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C-DC/E 

D-DD/E 

A*Y( Il)+P( Il)*(-B+P( I1)*(-C-D*P(I1) ) ) 

TRE-1./3. 

CD-I. /27. 

YST-A-C*B*TRE/D+2.*C**3*CD/D**2 
IF(YST.LE.Y(I).0R.YST.GE.Y(I+1)) GO TO 1 
YS T P * B— C*C* TRE /D 
IF ( YSTP.GE.EPPRES) GO TO 1 
I S ( M ) *1+1 

IF( (M/2)*2.EQ.M> IS(M)*I 
XP5 * XP 1 
XP6-XP2 
GO TO 501 
1 CONTINUE 
GO TO 500 
501 ISM*IS(M) 

BETB(M)*(ATAN(XP5)+ATAN(XP6) )/2. 

WRITE (6* 506 ) M 

506 F0RMAT(1H1»20X» 19HEM8EDDED SHOCK TYPE I2//13X*2HIS * 5X* AHBETA ) 
WRITE( 6*508) I S ( M ) * B E TB ( M ) 

508 FORMAT ( 1 0 X* 15* Ell* 3) 

L * 1 

IF C (M/2)*2.EQ.M) L*-l 
I SMM* ISM— L 
ISP*ISM+L 

RAT* ( (Y( ISM)+Y(ISMM) ) /2 • — Y { I S P ) )/( Y ( ISM)-Y(ISP) ) 


X 

( I SM ) =X 

<ISP)+RAT*<X 

( ISM ) -X 

(ISP) ) 

Y 

( I S M ) * Y 

(ISP)+RAT*(y 

( I S M ) — Y 

(ISP) ) 

Q 

( ISMJ-Q 

(ISP) +R AT* ( Q 

( ISM)-Q 

( ISP) ) 

P 

( I SM ) * P 

(ISP)+RAT*(P 

( I SM ) -P 

(ISP) ) 

T 

(ISM)-T 

(ISP)«-RAT*(T 

( ISM) -T 

( ISP) ) 

DVIS(ISM)-DVIS( ISP )+R AT* (OVIS( ISM) 

-OVIS(ISP) ) 


VIS( ISM)-VIS(ISP)+RAT*( VI S{ ISM )— VI S < ISP) ) 


TH 

(ISM)-TH 

(ISP)+RAT*(TH 

( ISM )— TH 

(ISP) ) 

BQ 

< I S M ) * BQ 

(ISP) +RAT* ( BQ 

( I S M ) -B Q 

(ISP) ) 

TAU 

( ISM )«TAU 

(ISP) +RAT* ( T AU 

( ISM ) -T AU 

( ISP) ) 

DBQ 

< ISM)*DBQ 

(ISP)+RAT*(DBO 

< I S M ) — D BQ 

(ISP) ) 

DCPX 

(ISM)-DCPX 

(ISP)+RAT*(DCPX 

( ISM) -DCPX 

(ISP) ) 

OTAU 

( I SM ) * 0 T AU 

(ISP)+RAT*(OTAU 

( ISM ) -OT AU 

( ISP ) ) 

XMASS 

(ISM)-XMASS 

(ISP)+RAT*(XMASS 

( ISM ) — XM ASS 

(ISP) ) 


CPX( ISM)*0. 

W(ISM)*0. 

CALL THERM0(T(ISM)»H1,CP1) 

DO 100 KI*1»NSP 
J*K I 

ALP (KI» ISM ) -ALP (KI*ISP)+RAT*(ALP (KI*ISM)-ALP (KI»ISP)) 
DALP (KI* ISM) -DALP ( K I, I S P ) +R AT* ( D AL P (KI* ISM )-DALP ( KI» ISP ) > 
DDALP(KI*ISM)*DDALP(KI» IS P ) +R A T* ( DD A LP ( K I * I S M ) -DO AL P ( KI* ISP) ) 
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H(J>ISM)*H1(J) 

CP< J,ISM)«CP1(J) 

W(ISM)»W(ISM)+ALP(J> ISM) /WTMOLE( J) 

CPX( ISM)«CPX( ISM) + ALP ( J#ISM)*CP( JdSM) 

H N(KI>ISM)»H ( K I» ISM) 

ALPN(KI#ISM)«ALP(KI, ISM) 

100 CONTINUE 
W(ISM)«1./W(ISM) 

R(ISM)*RO/W(ISM) 

GAM ( I SM ) *CPX ( ISM) / ( C P X ( ISM)— R( ISM) /CPIN) 
RHQ(ISM)»P(ISM)*W( ISM )*G£W/T (ISM) 

RI-1./R( ISM) 

EM( ISM) »Q( ISM) *E MINE* SQRT( GAR /GAM ( ISM) *RI/T( ISM) ) 
XMU ( ISM)-ZMU(EM( ISM) ) 

Q N(ISM)«Q (ISM) 

R N ( ISM) »R (ISM) 

T N(ISM)«T (ISM) 

P N(ISM)«P (ISM) 

W N(ISM)>M (ISM) 

VISN(ISM)«VIS( ISM) 

DVISN( ISM) -DVIS( ISM) 

TH N(ISM)*TH (ISM) 

RHO N(ISM)-RHO(ISM) 

GAM N(ISM)-GAMdSM) 

IF ( JSUBL.GT. IS < M) ) J S UB L- J SUBL + 1 
IF ( JSUBU.GT . I S ( M ) ) J S UBU* J S UBU+1 
DO 101 KK-1,A 

IF(IS(KK).GT.IS(M)) IS(KK)-IS(KK)+1 

101 CONTINUE 
IEMBED-1 

CALL HSHOCK(M) 

IEMBED-0 
X ( I SMM ) * X ( ISM) 

Y( ISMM)*Y( ISM) 

XMASS ( ISMM )-XMASS( ISM) 

W (ISMM)-W N(ISMM) 

P ( I SMM ) ■ P NdSMM) 

0 ( I SMM ) » Q NdSMM) 

T ( I SMM ) ■ T NdSMM) 

R (ISMM)-R NdSMM) 

TH (ISMM)-TH NdSMM) 

EM (ISMM)-EM NdSMM) 

RHO( ISMM)*RHON( ISMM) 

VIS ( ISMM) * V I S N ( ISMM) 

D VI S ( ISMM)*DVISN( ISMM ) 

CPX( ISMM)»CPXN(ISMM) 

GAM( ISMM) *GAMN( ISMM) 

XMU(ISMM)«XMUN( ISMM) 

DO 1313 KI»1,NSP 
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H ( KI , I SUM ) *H N( KI , ISMM ) 

CP ( K I# ISMM ) *CP N(KI,ISMM) 

ALP(KI#ISMM)*ALPN(KI» ISMM) 

1313 CONTINUE 
1800*0* 

RE*0. 

XBP«0. 

CALL SHE AR1 ( 0. » 0* ) 

500 CONTINUE 
RETURN 
END 

SUBROUTINE SOLVE (All* A12, A13, A21, A22, A2 3* A31, A32, A33, DET ) 
0ET»A11*(A22 + A33-A32*A23)-A12*(A21*A33-A31*A2 3)*A13MA21*A32-A22*A 
131) 

RETURN 

ENO 

SUBROUTINE HSHOCK(K) 

COMMON/AL/GAR,GEW 

COMMON /BA/ALP(7» 55 ),EMINF, WINF 

C0MM0N/BB/S1A»S2A, S3 AT 

C0MM0N/8Q/GAMB,PB,QB,RHQB,THB»WB,XMUB,YB 
COMMON/C A/WDOTN( 7# 55 )» XN(55> 

COMMON /CJ/CP(7*55),CP1(7),CPX(55 ) 

C0MM0N/CK/WTM0LE(7) 

C0MM0N/DB/BETB(20),IS(20),IDD, IJENK, JENKI 

COMMON/ZY/ABOD,BBOD,CBOO,EBOD,FBOD,GBOD, I A VE , I PUNCH, J B OD, KKK KK 
COMMON /WV/NPTS* RE* XBP»XJ 
C0MM0N/DP/YN<55 ) 

COMMON/ED/CPIN»RO 

C0MM0N/EF/EM(55),GAM(55)»P(55),TH(55)»Y(55) 

COMMON/EG/EIN,PR,XLE 
C0MM0N/EP/GAMINF,H1( 7),RINF 
COMMON/FE/DEL 

COMMON/GF/DELY, IFS,K0UNT0, MMM 

COMMON/GK/DELX 

COMMON/HL /ALPHA, BETA 

C0MM0N/HM/ALPN(7,55),CPN(7»55),CPXN(55),EMN(55),GAMN(55),HN( 7,55), 
ILS, PN(55 ), QN (55 ) , RHON ( 55 ) , RN ( 5 5 ), THN ( 5 5 ) , TN ( 5 5 ) , WN ( 5 5 ) , XMUN ( 55 ) 
C0MM0N/HP/BETAN(20 ), I EMBED 
COMMON/PQ/ JCHEM,NSP, TC55) 

COMMON /QA/HC 7,55), Q( 55), RHO( 55) ,XMU( 55 ) 

C0MM0N/QS/RH0P(2 ), WDOTC 7, 5 5),WD0TC ( 7), WP ( 2 ) , XMUP ( 2 ) 

COMMON/SO/ BON ( 55 >,DALPN (7, 55 ),DBQN (55), DCPXNt 55), OOALPNl 7,55 ), 
10TAUN (55 ), T AUN (55 ) 

COMMON /S T/ 113, IREGI, KS,KF IRS T,KKKQ,PSTAR 

C0MM0N/TU/BQ(55),DALP(7,55),DBQ(55),DCPX(55),D0ALP(7,55),DTAU(55), 
1TAU ( 55 ) 

C0MM0N/TV/ALPP(7,2),BET,BQP(2),DACHP(7,2),DALPP(7,2),DB0P(2), 

1DCPXP (2),DDALPP(7, 2), 0TAUP(2 ) , DTCHP ( 2 ) , GAMP < 2 ) , PP ( 2 ) »QP(2), 
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2TAUP(2)#THP(2>,TP(2),YP(2> 

COMMON/ VW/ I CONT, IEND, KT, THBPN, XBPN 
DIMENSION DUMM ( 7 ) 

REAL NBETB 
I * I S ( K ) 

IT1-1 

BE T * BE TB ( K ) 

IT11-1 

XXX*1* 

ICCC-0 
L *1 

IF( (K/2)*2#NE.K) L--1 

KSAVE-KS 

KZ * K 

KK-0 

K J ■ 0 

CALL CROSS (KS#KK*KZ) 

IF(KSAVE.NE.KS.OR.KK.NE.O) GO TO 1402 

IF(L.LT.O) GO TO 2 

TOE ■ Y ( 1 ) — Y C IS ( K ) ) 

KJ«IS(K)-1 

DX X * .02+TQE/ (TAN( BE TB(K) )-BBOD) 

DELTA -ABS ( TH< IS (K )+L >-ATAN< BBOD) ) 

GO TO 3 

2 TOE- Y(NPTS ) - Y ( IS (K) ) 

KJ-NPTS-IS (K) 

D X X * • 2* TOE / ( T AN { B E TB (K) )-FBOD) 

DELTA -ABS(TH(IS(K)+L ) -AT AN ( F BOD ) ) 

3 IF(DXX#GT«DELX*QR*KJ*GT*1) GO TO 1 
EMSQ - EM ( IS(K)+L>+*2 

BB-- ( EMS Q + 2 • ) /EMSQ-G AM ( IS ( K ) +L ) *S IN ( DELTA ) **2 

CC* ( 2.*EMSQ+1# ) / (6MSQ**2)+( ( GAM ( I S ( K ) +L ) +1 • )**2 /4 • + ( GAM ( I S ( K ) ♦L )-l 
Z • ) /EMSQ)*SIN(DELTA)**2 
DD--COS ( DELTA) **2/ ( E M S Q**2 ) 

EX- ( 4.5*BB*CC-BB**3-13.5*DD ) /SQRT( ( BB**2-3*CC > **3 ) 

EE-ACOS(EX) 

NN-4 

FF-COSMEE + NN*4.*ATAN(l.))/3.) 

GG«SQRT(-BB/3* + ( 2. +SQRT < BB**2-3.*CC ) /3 . >*FF ) 

EPS-ASIN(GG) 

12 SE -(SIN(EPS)) **2 

GM *.5*<GAM< IS(K)+L)-1. ) 

SED » (SIN( EPS— DELTA ) )**2 

EM2* SQRT ( ( l.+GM+EMSQ+SE ) / ( SED* ( G AM ( IS (K ) +L > * E MSQ* S E-GM ) ) ) 

TOP - 2 • *G AM ( IS (K) + L ) *EMSQ+SE-(GAM ( I$(K) + L)-1. ) 

PP2« TOP / <GAM( IS< K) +L )+l. > *P( IS <K >+L> 

TT2- ( TOP* ( (GAM( IS (K ) +L)-1. ) +EMSQ+SE+2. ) /( ( GAM ( IS ( K ) +L ) + 1 . ) **2*EMS 
1Q+SE) >*T(IS(K)+L) 

NBETB-L*(EPS+L*TH(IS (K)+L ) ) 


APPENDIX A 


IF( ( ( ( IDD+1) /2)*2.NE. ( IDD + 1 ) ) . AND. ( L.LT.O) >G0 TO 114 

IDD -IDD+1 

ISC IDO » » I S ( K ) + L 

BE TB ( IDD ) - NBETB 

BET AN ( IDD ) -NBETB 

GO TO 115 

114 IDD- IDD+2 

ISC IDD ) «IS(K)+L 
BET B ( IDD ) - NBETB 
BETAN(IDD)*NBETB 

115 Y2- Y ( I S ( K ) ) + DXX* T AN ( BE TB ( K ) ) 

YN( IS (K) ) -YN( IS (K) +L ) » Y2+ < DE LX-DXX ) * T AN ( N BE TB ) 

IF(L.LT.O) GO TO 22 

YN( IS (K)-L )»Y( IS CK )-L ) +DELX+BBOD 

JENKI-1 

GO TO 33 

22 YNCIS(K)— L)-YCIS(K)— L) +DELX+FBOD 
IJENK -1 

33 EMN(ISCK)-L)*£MN{IS<K))«EM2 

XMUN( IS(K)-L ) -XMUNC IS (K) ) -ZMUC EM2 ) 

PNC IS C K ) )»PN( IS (K) -L ) -PP2 
TNCIS(K) )»TNCIS(K)-L)-TT2 
IFCL.LT.O) GO TO 44 
THNC IS(K) ) -THNC ISCK)— L)-ATAN(BBOD) 

GO TO 333 

44 THNC ISCK) ) - THN ( I S ( K ) -L) » A T AN ( F BOD ) 

333 WNC IS CK)-L) -O. 

CPXNC IS(K)-L ) -0 . 

CALL THERMOCTNC ISCK)—L)»H1>CP1) 

DO 66 J-1,NSP 

HN ( J » I S ( K ) -L ) -HI C J ) 

HN C J » ISCK) ) -HNC J>IS(K)-L) 

C PNCJ, ISCK) -L)-CPN(J» ISCK) )«CP1CJ) 

WNCISCK)— L)-WN(ISCK)— L) +ALP C J > I S ( K ) -L ) / WTMOLE ( J ) 
CPXN(IS(K)-L)-CPXN(IS(K)-L) +AL P ( J , I S ( K ) -L ) *C PN ( J * I S C K ) -L ) 
CPXNCISCK) J-CPXNCIS(K)— L) 

66 CONTINUE 

WNC IS(K)-L) -WNC IS (K) )«1. /WNC IS (K)-L ) 

RNC IS CK) ) -RNC ISCK)-L ) -RO/WNC IS CK)-L) 

GANNC ISCK )~L )-CPXNC IS CK)-L ) / CCPXNC IS C K ) -L ) -RN ( I S < K ) -L ) /CP IN) 
GAMNCISCK) )-GAMN« ISCK )-L) 

RHON (ISCK) )-RH0NCISCK)-L)-GEW+WNCIS(K)-L)*PNCIS(K)-L)/TN(ISCK)-L) 
QNC IS CK) ) -QNC ISCK) -D-EMNC ISCK )-L) /EMINF /SQRTCGAR/GAMN ( IS ( K )-L ) / 
ZRNC ISCK )-L)/TN( ISC K)-L) ) 

WRITE (6> 2002 ) K> IDD 

2002 FORMAT ( 1H> 10H ***+***♦*,//* SHOCK WAVE BET B ( * » I 3> * ) * , *H AS REFLECTS 
ZD FROM THE WALL AND HAS BECOME BETB(*» 13#*)+) 

BE TB ( K )* 0 . 

BETANCK)-0.0 
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IS(K)-0 

IF(L.GT.O) LS-LS+1 
GO TO 1402 
1 CONTINUE 
M-IS(K) + L 

IF ( BETA# NE »0« ) GO TO 8210 
TAUN ( M )-TAU{ M ) 

BON ( H ) *BQ ( N ) 

DCPXN ( M ) - DCP.X ( M ) 

DTAUN (M) -DTAUt M) 

DBQN ( M ) »OBQ ( M ) 

CPXN(H»«CPX(M) 

00 8211 J*l» NSP 
OALPN( J>M)-OALP( J, M) 

DDALPNl J»M)-DDALP< J>M) 

ALPN( J#M>»ALPN( J»I> 

WOOTC ( J )«0* 

WOOTNC J#MI-0. 

WN(M)-WN( 1) 

8211 CONTINUE 
8210 CONTINUE 

IFI BETA. GT.O. ) BET- BE TAN (K) 

4 IT-1 
CA-1. 

VT-QN(I) *COS(BET— THN(I)) 

Ul-QN(I) *CA*SIN(BET-THN( l) > 

U1*ABS(U1 ) 

XMS-RHON C I ) *U1 

GN-GAMN( I) 

GP1 - ( GN*1 • ) 

GM1-GN-1. 

RNI- 1 • /RN( I ) 

XM1-U1**2*EMINF**2*(GAR/GAMN ( I ) * RN I / TN ( I ) ) 

0XM-1./XM1 

IF ( IT.EQ.1)U2«U1*< GM1 + XM1 + 2. > /GP1*0XM 

5 RH2P-XMS/U2 
P2H-XMS* C U1—U2 ) ♦ PN ( I ) 

V2- VT**2 

V1»V2+U1**2 

V2-V2*U2**2 

H6- 0 • 

00 1400 J«1»N$P 
1400 H6-HN CJ» I)*ALPN( J» I) +H6 
H2-H6-M V1-V2 ) /2 • *E IN 
IIT1-1 
Tl-TN(I) 

IF( IIT1.EQ.1) T2«T1*(2 .*GN* XM 1-GM1 ) * < GM l*XMl+2 . ) / ( 2 . * GP 1 ) * OXM 
8200 CALL THERM0tT2#Hl»CPl ) 

H2P-0. 
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DO 8201 J-1»NSP 

8201 H2P*H2P+ALPN( J> M ) *H1 ( J) 

ERR1«(H2-H2P)/H6 

IF(ABStERRl) .LT.l.E-08) GO TO 8202 
IIT1* IIT1+1 

IF C IIT1.GT.15 ) GO TO 8203 

IF(IIT1.GT.2) GO TO 8204 

ERR2 *ERR1 

T22 * T2 

T2* T2*l • 01 

GO TO 8200 

8203 WRITE lb» 9191 ) 

9191 FORMAT ( 1H1 ) 

WRITE(6,8205> 

8205 FORMAT ( * ERROR IN TEMPERATURE LOOP IN HSHOCK*) 
STOP 

8204 DUM-T22 — ERR2MT2-T22 ) / ( ERR 1-ERR2 ) 

ERR2-ERR1 

T22* T2 
T2-DUM 
GO TO 8200 

8202 CONTINUE 
RH2«P2H*WN(M)*GEW/T2 
ER- (RH2-RH2P) /RHO (I) 

IF ( ABS(ER) .LT.1.E-8)G0 TO 7 
I T» I T+ 1 

IF(IT.GT.25) GO TO 100 

IF ( IT.GT.2 )G0 TO 6 

ER2-ER 

U22 *U2 

U2-U2+.99 

GO TO 5 

100 WRITE (6» 9191 ) 

WRITE (6# 200) 

200 FORMATt* ERROR IN HUGONIOT LOOP IN HSHOCK+) 
STOP 

6 DUM *U22-ER2* ( U2--U2 2 ) /(ER-ER2) 

ER2 ■ ER 

U22 *U2 
U2-DUM 
GO TO 5 

7 CONTINUE 
CB*COS(BET ) 

SB-SIN(BET) 

IF ( <K/2)*2.EQ.K)U2*-U2 
QN2 P U2*C A 
UV m VT*CB— QN2P*SB 
WV» VT*SB + QN2 P + C B 
PHE2-ATAN(WV/UV) 
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Q2»SQRT(UV*UV+WV*WV) 

IF ( IEMBED.EQ.l) GO TO 3535 

YN ( M ) * Y ( M ) + • 5+ ( T AN ( BETB ( K ) ) + T AN ( B ET ) ) *DE L X 

DEL * 1 • 

CALL LPOINT ( M# 1 • ) 

775 DEL*0. 

SIA-O. 

S2 A * 0 • 

S 3 AT *0 • 

G AMB* GAMP ( 1 ) 

PB-PPC1) 

OB-QP(I) 

RHQB* RHOP < 1 ) 

THB *THP ( 1 ) 

WB-WP(l) 

XMUB* XMUP ( 1 ) 

YB* Y P ( 1 ) 

Al-Fl (M) 

A2-F2 (M, S1A, S2A, S3 AT) 

I F ( JCHEM.EQ.l) GO TO 7254 
A3* 0 • 

GO TO 7257 

7254 TPl*(TP(l)+T2)/2. 

DTCHP (1)*DTCHP( 1) /2. 

DO 1552 J * 1 * N S P 
1552 DUMM< J)*DACHP< J,l) /2. 

A3*F3(TP1,DTCHP(1),TP (1), T2, THP< 1)>PHE2>DUMM# WP<1), WN(M) ) 
7257 CONTINUE 
QPT--1. 

I F « (K/2)*2.EQ.K) OPT-1. 

A4* F 4 ( BETA*— OPT* XMUP ( 1 ) > THP ( 1 ) * XMUN C M ) * THN ( M ) ) 

A2 * ( A 2 + A 3 ) * A 4 

PSH«PP(1)+(0PT*(PHE2-THPC 1) ) — A2*DE LX ) / A1 
ER3* (PSH-P2H) /P ( M ) 

IF( ABS(ER3).LT.1.E-3)G0 TO 19 
IT1-IT1+1 

I F « IT1.GT.25) GO TO 103 
I T 1 1 * I T1 1 + 1 

IF ( IT1.EQ.2) GO TO 1430 

IF(ER1*ER3.LT .0. ) GO TO 14 

IF( ABS(ERl-ER3).LT.5.E-06) GO TO 1492 

IF ( ABS(ERl) *GT. ABS (ER3) ) GO TO 1430 

IF( ICCC.EQ.l) GO TO 103 

XXX*-1. 

ICCC-1 
IT11-IT11-1 
1430 ER1-ER3 
BE T 1* BE T 

BET-BET+.01* ( IT11-1) * BET* XXX 
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GQ TO 15 

1492 BET2 - ( BE T-BE T 1 >*20, 

ER1* ER3 
BET1-BET 
BET-BET+BET2 
GO TO 15 

103 WRITE (6,9191 ) 

WRITE(6,220) 

220 FORMAT ( * ERROR IN SHOCK ANGLE IN HSHOCK*) 

STOP 

14 DUM*BET1-ER1*{BET-BET1)/(ER3-ER1) 

ER1* ER3 

BET1-BET 
BET »DUM 

15 YN ( M ) * Y ( M ) ♦ • 5* ( T AN ( BE TB ( K ) ) ♦ TAN ( BE T ) ) *DEL X 

15* IS (K ) 

Y N ( I 5 ) * YN ( M ) 

KS- IS (K) 

LS-KS 
KT *K S 

IF ( (K/2)*2.EQ.K) KT- KT-1 
CALL C POINT 
GO TO A 

19 BETAN(K) -BET 

YN ( M ) » • 5 * ( T AN ( BE TB ( K ) ) + T AN ( BE T AN { K ) ))*DELX+Y(M) 

15 ■ I S (K ) 

YN ( I 5 ) - YN ( M ) 

3535 CONTINUE 

PN(M) - P2H 
QN ( M ) -Q2 

THN(M) -PHE2 
RHON(M) * RH2 
TN ( M ) -T2 
RN(M) -RO/WN(M) 

CPXN ( M)-0. 

00 1401 J » 1* N SP 
HN ( J# M ) -HI ( J ) 

CPN ( M ) -CPI ( J ) 

1401 CPXN(M)«CPXN<M)+ALPN(J,M)*CPN(J,M) 
GAMN(M)»CPXN(M)/(CPXN(M)-RN(M)/CPIN) 

ORM- 1 • /RN ( M ) 

EMN(M )«QN(M)*EMINF*$QRT<GAR/GAMN(M )*QRM/TN(M) ) 
IFCEMN(M).LT. 1*0001) GQ TO 1402 
XMUN( M) *ZMU( EMN(M) ) 

1402 CONTINUE 
RETURN 
END 

SUBROUTINE SWITCH(J,K) 

COMMON/ BA/ ALP (7, 55 )» EMINF, WINF 
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COMMON/BD/XMASS ( 55 ) 

COMMON /C J/CP( 1 > 55)>CP1(7)>CPX(55) 

COMMON/EF/EM (55 )»GAM (55>,P(55)»TH(55),Y(55) 

COMMON/PD/W(55), X( 55 ) 

COMMON/ PQ/JCHEM»NSP* T (55 ) 

COMMON/ QA/H(7;55)>Q( 5 5 ) » RH 0( 55)*XMU(55) 

COMMON/RC/R(55> 

COMMON/TS/DVIS(55 )>D VISN (55 )>DVISP(2)»VIS(55)>VISN(55),VISP(2) 
COMMON/TU/BQ(55 )*DALP(7»55)>DBQ(55)*DCPX(55)>DDALP(7>55),DTAU(55)» 
1TAUI55) 


X 

( J) *x 

(K) 

Y 

( J)«Y 

(K) 

Q 

(J)«Q 

<K> 

P 

( J) »P 

CK) 

T 

( J ) *T 

(K) 

W 

( J)*W 

(K) 

R 

( J)>R 

<K) 

EM 

( J)«EM 

(K) 

TH 

( J )«TH 

(K) 

BQ 

( J ) » B Q 

(K) 

TAU 

( J)»TAU 

<K) 

DBQ 

( J ) «DBQ 

(K) 


DVIS( J)»DVIS(K) 

VIS ( J >»VIS (K) 

GAM ( J ) * G AM (K) 

RHO (J)»RHO (K) 

XMU (J)*XMU (K) 

CPX (J)»CPX (K) 

DCPX (J)«DCPX (K) 

DTAU (J)*DTAU (K) 

XMASS ( J) *XMASS(K) 

DO 108 JJ«1,NSP 
H (JJ>J)=*H ( JJ> K) 

CP (JJ,J)»CP ( J J» K ) 

ALP ( J J» J ) *ALP ( J J > K ) 

DALP ( J J> J ) *DALP ( J J > K ) 
OOALP(JJ»J)*DDALP(JJ>K) 

108 CONTINUE 
RETURN 
END 

SUBROUTINE PM(M»OPT) 

COMMON /AL/GAR#GEW 

COMMON/ BA/ ALP (7»55 ), EMINF* WINF 

COMMON/C J /CP (7, 55)»CP1(7),CPX(55) 

COMMON/C K/WTMOLE( 7 ) 

COMMON/ED/CPI N»RQ 

C0MM0N/EF/EM(55)»GAM(55 )»P(55),TH(55)>Y(55) 

COMMON/EG/EIN»PR,XLE 

C0MM0N/EP/GAMINF»H1(7)#RINF 
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COMMON/PD/Wt 5 5) > X( 55 ) 

COMMON /PQ/J CHE M, NS P, T( 55) »PTZERO> ID I VERG» THl>XE>YE»RCR>PTOJ» TOJ 
1»EM1, XMU1> Q1 
COMMON /WV/NPTS>RE> XBP>XJ 
C0MMQN/QA/FK7,55),Q(5 5),RH0(55)/XMU(55) 

COMMON/RC /R( 55) 

DP* ALQG ( P ( 7 ) / P ( 2 ) ) 

H6 * 0 • 

DO 2 J*l> NSP 
2 H6*H6+H( J>M)*ALP(J>M) 

DO 11 I*1,NPTS 
11 X(I)*3.E-2 
XBP* X ( 1 ) 

RH01*RHQ(2)*EXP(DP/GAM(2) ) 

G*2.*GAM(2 ) / (GAM(2 )-l ) 

VSQUARE»QQ»-G*(P(7) /RH01-P<2 ) /RH0(2) ) 

Q1«SQRT(Q(5)**2+VSQUARE> 

H2*H6— QQ/2 • *E IN 
1 1 T 1* 1 
T1*T( 2 ) 

IF ( IIT1.EQ.1 ) T2»T1*.99 
8200 CALL THERM0(T2>H1jCP1) 

H2P-0. 

DO 4 J * 1 > N S P 

4 H2P*H2P+ALP< J>5)*H1(J) 

ERR 1* (H2-H2P ) /H6 

IF(ABS(ERRl).LT.l.E-08) GO TO 8202 
IIT1*IIT1+1 

1F(IIT1.GT.15) GO TO 8203 
IF ( IIT1.GT.2) GO TO 8204 
ERR2* ERR1 
T22-T2 
T2 *T 2*«99 
GO TO 8200 
8203 WR I TE ( 6> 9191 ) 

9191 FORM AT ( 1H1 ) 

WRITE (6> 8205 ) 

8205 FORMATS ERROR IN TEMPERATURE LOOP IN PM*) 

STOP 

8 204 DUM*T22-6RR2*( T2-T22 ) / ( ERR 1-ERR2 ) 

ERR2*ERR1 
T22 * T2 
T2* DUM 
GO TO 8200 
8202 CONTINUE 
N*5 

T(N)-T2 
W ( N ) * 0. 

CPX (N)*0. 
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DO 5 J«1*NSP 
CP< J*N)»CP1( J ) 

HI J*N)»H1< J) 

CPX(N)«CPX(N)+ALP( J*N)*CP1( J) 

5 W(N)*W(N)+ALP(J*N)/WTMOLE(J) 

WIN) *1. /WIN) 

R ( N ) ■ RQ/ W ( N ) 

GAMIN )«CPX(N)/(CPX(N)-R(N)/CPIN> 

ORN-l./RIN) 

EN1»Q1*EMINF*SQRT(GAR/GAM(N)*QRN/T(N)) 

XMU1« ZMU (EMI ) 

THl»TH(N)-OPT*(DP/GAM(2) ) * ( C OS ( XMU1 ) *S IN ( XMU1 > 

3+CQS ( XMU ( N ) ) *SIN( XMU(N) ) ) /2 . 

RETURN 

END 

SUBROUTINE CHEN ( FAS ) 

COMMON/ BA/ ALP I 7* 55)*EMINF*WINF 
C0MM0N/CA/WD0TN(7* 55 >*XN< 55) 

C0MM0N/DB/BETBI20)* IS (20)*IDD»IJENK» JENKI 
COMMON/DP/YN(55 ) 

COMMON/EF/EM(55)*GAM(55)*P(55)»TH(55)*Y(55) 
COMMON/HI /DALCH( 7 )* DTCHEM 
C0MM0N/0P/ALPB(7),PHI (55) 

COMMON/PD/W( 55) » X( 55 ) 

COMMON/PQ/JCHEM*NSP» T (55 ) 

COMMON/QA/HI 7* 5 5 )* 0(5 5 )*RHO ( 5 5 )* XMU( 55 > 
COMMON/QS/RHOP(2)*WDOT(7* 55)*WD0TC (7), WP(2)* XMUP< 2) 
C0MM0N/VT/DACH(7*55>* DTCH( 55 ) 

COMMON /WV/NPTS* RE * XBP* XJ 

COMMON/ YZ/BPRESU* CHE MFC* CP RE SU* EM SUB* RTH* XSTEP 
IF( JCHEM.EQ.O ) GO TO 8351 

C ♦***«.**♦** CHEMISTRY PACKAGE ********** 

DO 8355 L*l# NPTS 
DO 89 M*1,IDD 
IF(IS(M).EQ.O) GO TO 89 
ITEST»IS (M ) — 1 

IF( (M/2)*2.EQ.M> ITEST«IS(M) 
IF(L.EQ.ITEST.0R.L.EQ.ITEST+1> GO TO 8398 
89 CONTINUE 

FAT « ABS ( PHI ( L ) ) 

IFUFAT.LT. .01). OR. (FAT. GT.iOO.)) GO TO 8398 
K»L 

OX*SQRT( ( XN( L)-X(K ) ) **2+( YN(L)-Y(K) ) **2) *RTH 
DO 8350 J*1*NSP 
8350 ALPB ( J)»ALP(J*K) 

CALL HOCUS ( T(K)* P( K) * Q(K)* RHO(K)* ALPB* DX* L ) 

DO 8301 J » 1* NSP 
8301 DACH( J#L)*DALCH( J) 

DTCH( L)*DTCHEM 
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60 TO 8355 

8398 DTCH(L)«0. 

DO 8399 J * 1, NSP 
WDQT( J,L>=0. 

WDQTN ( J , L ) * 0 « 

8399 DACH(J,L>*0. 

8355 CONTINUE 

60 TO 4000 

8351 DO 6100 l« 1, NPTS 
DTCH ( L ) *0 ♦ 

DO 8302 J» 1, NSP 
WDOT( J,L >*0. 

WDQTN(J,L)»0. 

8302 DACH(J,L)«0. 

6100 CONTINUE 
4000 CONTINUE 
RETURN 
END 

SUBROUTINE SHE AR ( I , AS HE AR ) 

COMMON/CJ/CP( 7, 55) ,CP1( 7), C P X ( 55 ) 

C0MM0N/CK/WTM0LE(7) 

COMMON/EF/EM (55 ),GAM ( 55 >, P (55 >» TH(55 ), Y(55 ) 

COMMON/GK/DELX 
COMMON/PD / W ( 55 )> X( 55 ) 

COMMON/PQ/JCHEM, NSP, TC55) 

COMMON/QA/H( 7,55 ) , Q ( 5 5 ) , RHO ( 55 ) , XMU ( 55 ) 

COM MON / S S / AL 1, AL2, BQ 1 , BQ2, C 1, C 2 , CH 1, CH2, D81, DB2, DD1, DD2, DTI, 0T2, DV 
A1,DV2,PX1,PX2,TA1,TA2,TH1,TH2,V1,V2,Y1,Y2 
COMMON /ST/ 113, IR EG I, K , KF IRS T, KKKQ, PS TAR 

C0MMQN/TS/DVIS(55),DVISN(55),DVISP(2), VIS(55),VISN(55)»VISP(2) 
COMMON/ TU/ BO ( 55 ),D ALP ( 7, 5 5 ) , DBQ ( 5 5 ) , DC P X ( 5 5 ) , DO AL P ( 7, 5 5 ) , DT AU ( 5 5 ) , 
1TAU (55 ) 

COMMON/VT/DACH( 7,55) , DTCH( 55 ) 

COMMON/WV/NPTS, RE, XBP,XJ 
DIMENSION S3D ( 7 ) 

K-I 

V1«V2»VIS(K> 

DV1*DV2»DVIS(K) 

TA1«TA2»TAU( K) 

DT1«DT2«DT AU ( K ) 

Y1»Y2«Y(K) 

TH1» TH2* TH ( K ) 

SID* S 1 ( X J » RE ) 

CH2D*0. 

DO 10 J* 1, NS P 

10 CH2D*CH2D+DALP( J,K ) * C P ( J , K. ) 

BQ1*BQ2*BQ(K) 

C1*C2*CPX(K) 

DB1-DB2*DBQ(K) 
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PX1»PX2»DCPX(K) 

CH1-CH2-CH2D 
S2D“S2 ( X J> RE ) 

S3DT-0. 

DO 20 J*1,NSP 
AL1»AL2*DALP(J>K) 

DD1»DD2*DDALP( J,K> 

S3D( J)«S3(XJ,RE) 

20 S3DT»S3DT+S3D(J)/WTMQLE(J) 

PK»I,/P(K) 

SH1»S1D/GAM(K)*PK/EM( K>**2 
QK* 1 . /Q ( K ) 

SH2*-(GAM(K)— 1. ) *S2D/GAM(K) *PK*QK 
SH3»-W(K)*S3DT/RHQ(K> *QK 
IF(XJ.EQ.O) SHA«0. 

IF(XJ.EO.O) GO TO AO 

IF(K.NE.1.0R.Y(K).GT.l.E-6> GO TO 30 
SHA » TH ( 2 ) / Y ( 2 ) 

GO TO AO 

30 SHA-SIN(TH(K) I / Y C K ) 

AO CONTINUE 
OD-l./DELX 

$H5*-DTCH(K) /T(K)*OD*COS(TH(K) ) 

DUM »0 . 

DO 50 J * 1 > NS P 

50 DUM«DUM+DACH(J>K) /WTMOLEtJ ) 
SH6«-W{K)*DUM/DELX+C0S(TH(K) ) 
SH-SH1+SH2+SH3+SHA+SH5+SH6 
ASHE AR»— GAM (K)*P(K)*EM(K)**2*SH 
RETURN 
END 

SUBROUTINE P R E S S ( X > P , TH> THN ) 

COMMON/AC /IBOD, PIN 
CQMMON/WX/APRESS> APRESU 
COMMON /YX/ABODS> BPRESS,CPRESS 
P-APRESS+X*(BPRESS+CPRESS*X) 

P ■ P * P I N 
THN« TH 
RETURN 
END 

FUNCTION XVI S ( A> I VV> IDUM) 

COMMON/DB/BETBl 20) ,IS(20)>IDI>IJENK,JENKI 
COMMON /EF/EMC 55 )>GAM (55)»P(55)>TH(55)»Y(55) 
COMMON/QA/H( 7>5 5 )> Q( 5 5 ), RHO( 5 5 )> XMU( 5 5 ) 
COMMON / WV/NPTS»RE> XBP»XJ 
COMMON/GE/P3(3)> VISINF 
C0MM0N/PQ/P331 2) t T (55 ) 

COMMON/TW/TIN 
IDD» I VV 
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U1- Q ( IDUM ) + . 95* ( Q ( IDD)-Q(IDUM) ) 

U2»Q(IDUM)+.5*(Q(iDD)-Q(IDUM) ) 

IF( ABS(Q( IDD)-Q( IDUM) > /Q ( I DD ) . G T . . 15 ) GQ TO 13 

TD-TIN*T( IDD>*1.8 

XXVI S«l./( VIS INF*RE*RHO ( IDD ) ) 

XVIS-2.27E-8*(SQRT(TD**3)/(TD+198.6) J+XXVIS 
RETURN 

13 DO 10 I-IDD, IDUM 

IF(U1.LT.Q(I) )G0 TO 10 

Y1- (Q(I-l)-Ul)/ (Q( l-l)-Q(I) >*ABS(Y(I-1)-Y( I))+Y(I-1> 

GO TO 8 
10 CONTINUE 

8 DO 9I-IDD, IDUM 
IF(U2.LT.Q(I> ) GO TO 9 

Y2« (0(1-1 )-U2 )/ (Q( 1-1 )-Q(I ) )*ABS (Y (I-l)-Y(I) M-Y(I-l) 

GO TO 7 

9 CONTINUE 
7 Z-Y2-Y1 

XVIS«ABS(.010*Z*Q( IDO) ) 

RETURN 

END 

SUBROUTINE COWL 

COMMON /BA/ ALP ( 7, 5 5 ) , EMINF, WINF 
CDMM0N/CJ/CP(7,55),CP1(7)»CPX(55) 

COMMON/DB/BETB(20), IS (20 ), IDD, IJENK, JENKI 
COMMON/DE/MM 

COM MON /E F /EM ( 55) ,G AM ( 55 ) , P ( 55 ) , TH( 55 ) , Y( 55 ) 

COMMON/HJ/KOUNT,LZ,NPT 
COMMON /HL /ALPHA, BETA 

COMMON/HM/ALPN( 7,55) , CPN < 7, 5 5 ) , CP XN ( 55 ) , EMN ( 5 5 > , GAMN ( 5 5 > , HN ( 7, 55 ) , 
ILS, PN(55), QN(55),RH0N(55),RN(55)»THN(55),TN(55),WN(55),XMUN<55> 

C OM MON/HP/BET AN (20), IEMBEO 
CQMMQN/PD/W(55),X(55) 

COMMON /PQ/JC HEM, NS P, T (55 ), PTZERO, IOI VERG, TH1, XE, YE, RCR, PTOJ, TO J 
1, EMI, XMU1, 01 

C0MMQN/QA/H(7,55),Q( 55), RHO ( 55 ) , XMU ( 55) 

COMMON/RC / R ( 5 5 ) 

COMMON/TU/BQ(55),DALP (7, 55),DBQ(55), DC PX ( 55 ) , DDAL P ( 7, 55 ) , DTAU( 55 ) , 
1 TAU ( 5 5 ) 

COMMON/WV/NPTS, RE, XBP,XJ 
ALPHA-1. 

BETA-0. 

NPTSSS-NPT 

NPT-NPT-3 

IF ( P(NPT+MM)-P(NPT) ) 2001,2002,2003 
2002 WRITE(6,9191 ) 

9191 FORMAT ( 1H1 ) 

WRITE (6, 2004 ) 

200* FORMATt 1H1,67H ERROR IN INPUT DATA - NO PRESSURE DIFFERENCE ACROSS 
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I SPLITTER PLATE/23H SET INPUT - INTACT - 0> 
STOP 

2003 QPT-1. 

K»4 

I S ( K ) *NP TS SS—1 
L-IS(K) 

M-L+MM 
GO TO 2005 
2001 0PT--1. 

K-3 

I S ( K ) »NPT+MM 

M-NPT 

L«M+MM 

2005 IFAN*MM— 2 
K0PT*0PT*1.5 
N13»NPTSSS-2*K0PT 

IF( (K/2»*2.EQ.K) N13»NPTSSS 
DO 300 N12*N13> NPTS 
K5-NPTS+N13-N12 
J5-K5+1 

CALL SWITCHt J5*K5> 

300 CONTINUE 
NPTS-NPTS+1 

DO 301 1 1 1 * 1 > IDD 
IF(Ill.EQ.K) GO TO 301 
IF(IS(I11).GT.N13) IS(I11)-IS(I11)+1 

301 CONTINUE 
LL*L+KOPT 
T AU ( LL ) *0 . 

PN( L)-P(L) 

THN (L)»TH(L) 

Q N ( L ) “Q (L) 

T N ( L ) ■ T (L) 

R N(L)-R (L) 

RHON(L)-RHO(L) 

GANN ID »GAM( L ) 

BQ(LL)«0. 

DC PX ( LL ) *0 • 

DTAU(LL)-0. 

DBQ ( LL ) *0. 

CPX(LL)-0. 

WN(L)-W(L) 

DO 2006 J«1,NSP 
HNC J#L>-H( J,L) 

DALP( J>LL)-0. 

DDALP ( J» LL ) *0. 

2006 ALPN(J»L)«ALPCJ»L) 

I TT* 1 

BETB(K)»(TH(L)-OPT*XMU(L) >*1.01 
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BET»BETB(K> 
2007 IEMBED* 1 

CALL HSHOCK(K) 

IEMBED-0 

KK*LL+KOPT 


p 

(LL) 

»P 

N( LL) 

Q 

(LL) 

*Q 

H(LL) 

T 

(LL) 

«T 

N ( LL ) 

W 

(LL) 

*W 

N ( LL ) 

R 

( LL) 

*R 

N ( LL ) 

TH 

(LL) 

*TH 

N ( L L ) 

EM 

( LL) 

* EM 

N( LL) 

XMU(LL) 

* XM UN ( L L ) 

GAM(LL) 

«G AMN ( L L ) 

RHO ( LL ) 

* RHON ( L L ) 

CPX ( LL) 

»CP XN ( LL ) 

P 

(KK) 

*P 

H( LL) 

Q 

(KK) 

* Q 

N ( LL ) 

T 

(KK ) 

«T 

N ( LL ) 

W 

(KK) 

* W 

N ( LL ) 

R 

(KK) 

* R 

Hi LL) 

TH 

(KK) 

•TH 

M(LL) 

EM 

(KK) 

•EM 

N ( LL ) 

XMU(KK) 

x XMUN ( LL ) 

GAM (KK ) 

*GAMN (LL ) 

RHO(KK) 

“RHON(LL) 

CPX(KK) 

“CPXN( LL) 

DO 

200B 

J* 

1» NSP 


H (J,LL)«H N( J>LL) 

CP ( J > LL ) x CP N(J»LL) 
ALP(JfLL) x ALPN(J>LL) 

H (J>KK)“H N(J>LL) 

CP ( Jj KK ) * CP N t J > L L ) 

2008 ALP( J,KK)*ALPN( J,LL) 

X(LL) x X(L> 

X ( KK ) *X ( L ) 

THS X TH(KK ) 

CALL PM( M> OPT ) 

THPM«TH1 

ERR-THS-THPM 

IF ( ABS(ERR).LT.i.E-04> SO TO 15 
ITT-ITT+l 

I F C ITT.GT.15) GO TO 102 

IF(ITT.GT.2> GO TO 14 

ER1-ERR 

B ET1 »BET 

BET»l.01*BET 

BE TB ( K ) ■ BE T 

GO TO 2007 
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102 WRITE (6, 203 ) 

203 FORMATS ERROR IN BETA SHOCK IN COWL* ) 

STOP 

14 DUM1«BET1-ER1*( BET-BE T1 ) / ( ERR-ER1 ) 

ER1-ERR 

BET1-BET 
BET-DUM1 
BETB(K)»BET 
GO TO 2007 

15 CONTINUE 
EM(5)«EM1 
ANG-TH15) 

THC51-TH1 
Q(5)-Q1 
XMU(5 )-XMUl 
P(5)*P(7) 

Y(5)«1.-X(5)*TAN(XMU(5)-TH(5) ) 

Y(4)-i.-XC4)*TANCXMU(2»-ANG) 

TH(4)«ATAN(Y(4)/(XE+X{4) ) ) 

NPT -NPTSSS 

RETURN 

END 

SUBROUTINE OPOINT(K,L> 

COMMON/AL/GAR,GEW 

COMMON/ BA/ ALP (7, 55),EMINF,WINF 

COMMON /CJ /CP ( 7,55),CP1(7),CPX(55) 

C0MM0N/CK/WTMQLE(7) 

C0MM0N/0P/YN(55 ) 

COMMON/EF/EMt55>,GAM<55>>Pl55>»TH<55>, Y(55) 

COMMON/ EP/GAMINF,Hl< 7), R INF 

COMMON/GK/OELX 

CQMMON/PD/W(55),X(55) 

COMMON /PQ/J CHE M, NS P, T(55) 

COMMON/QA/H( 7,55 ),Q< 5 5), RH0(55 >, XMU< 55 ) 

C0MM0N/TS/DVIS(55),DVISN(55),DVISP(2), V I S ( 55 ) , V I SN ( 5 5 ) , VISP(2) 
C0MM0N/TU/BQ(55),DALP(7,55),DBQ(55),0CPX(55),DDALP(7,55),DTAU(55), 
1 T AU ( 5 5 ) 

COMMON /TV/ALPP( 7,2 ), B E T, BQ P ( 2 ) , 0 AC HP ( 7, 2 ) , DALP P ( 7, 2 ) , OBQP ( 2 ) , 
1DCPXPC2),DDALPP(7, 2 ) , DTAUP ( 2 ), DTCHP ( 2 ) , G AMP ( 2 ) , P P ( 2 ) , Q P ( 2 ) , 
2TAUP(2),THP(2),TP(2), YP(2» 

COMMON/VT / D AC H ( 7,55) , DTCH( 55 ) 

I T* 1 

YD» ( YP C 1 ) +YP ( 2 ) )/2. 

16 RAT«( YD-YP(l) ) / C YP ( 2 ) -YP ( 1 ) ) 

ALAMO- TAN ( THP(l) ) +RAT* ( TAN ( THP ( 2 ) )-TAN( THP( 1) ) ) 

YAT»YN(L)-ALAMD*DELX 

ERR “ABS ( IYAT-YD)/ C YPC2)-YP(1) ) ) 

IF ( ERR.LT.l.E-05) GO TO 18 
YO-YAT 
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IT* I T*1 

IF(IT.LE.IO) GO TO 16 
WRITE ( 6> 9191 ) 

9191 FORMAT ( 1H1 ) 

WRITE (6»202) 

202 FORMAT ( * ERROR IN D POINT ITERATION*) 

STOP 

18 Y(K)*YD 

P ( K ) * P P ( 1 ) +R AT * ( P P ( 2 ) — P P ( 1 ) ) 

Q <K)-Q P(1)+RAT*(Q P(2)-Q P(l)) 

T <K)«T P(1)+RAT*(T P(2)-T P<1>) 

TH (K)-TH P ( 1 ) +R AT* ( TH P(2)-TH P(l)) 

DVIS(K)»DVISP(1)+RAT*(DVISP(2)-0VISP(1) ) 
VIS(K)*VISP(1>+RAT*<VISP(2)-VISP<1)> 

BQ ( K ) ■ BQ P ( 1 ) *R AT* ( BQ P(2)-BQ P<1>) 

TAU (K)«TAU P ( 1 ) +R AT * ( T AU P(2)-TAU P (1)) 

OBQ (K)*DBQ P ( 1 ) +RAT* (DBQ P(2)-DBQ P(l)) 

DCPX<K)»DCPXP(1)+RAT*(DCPXPC2)-DCPXP(1> ) 
DTAU(K)*DTAUPC1)+RAT*«0TAUP(2)-DTAUP(1) ) 
0TCH(K)-DTCHP(1)+RAT*(DTCHP(2)-DTCHP (1 ) ) 

CPX(K)*0. 

W(K ) *0» 

CALL THERM0(T(K)>H1>CP1) 

DO 1 J *1> NS P 
H (J>K)*H 1(J) 

CPt J»K)*CP1( J) 

ALP ( J> K ) *AL P P< J» 1)+RAT*(ALP P(J»2)-ALP P(J>1)> 

DALP <J,K)*DALP P( J> 1 >+RAT*(DALP P(J#2)-DALP P ( J> 1 ) ) 
DACH(J»K)*DACHP(J> 1) +RAT* ( DACHP (J> 2 )-OACHP ( J, 1 ) ) 

DDALP(J»K)*DDALPP( 1 ) +R AT * ( DD ALPP ( J 1 2 )-DD ALPP < J » 1 )) 
CPX(K)«CPX(K)+ALP(J>K)*CP(J»K) 

1 W(K )*W(K)+ALP( J»K> /WTMOLE< J ) 

W(K) *1./W(K) 

RHO(K)»P{K)*W(K)*GEW/T(K) 

RETURN 

ENO 

SUBROUTINE STEP 
COMMON/AC /IBOD* PIN 
COMMON/ AX /JSUBL* JSUBU 
COMMON/CA/WDOTN( 1 > 55 )> XN(55) 

COMM0N/DB/BETB(20)»IS (20 )» IDD» I JENK> JENKI 
C0MM0N/DP/YN(55 ) 

C0MM0N/EF/EM(55)*GAM(55)»P(55)»TH(55)>Y(55) 

COMMON/EG/EIN>PR,XLE 
COMMON/GE /RAD» ROO, UIN, VIS INF 
COMMON/GK/DELX 
COMMON /HJ /KOUNT# LL»N PT 

C0MMQN/HM/ALPN(7»55)»CPN(7»55)»CPXN(55)»EMN(55)»GAMN(55)»HN(7»55)» 

ILS,PN(55)#0N(55)>RH0N(55),RN(55)>THN(55)>TN(55)»WN(55)*XMUN(55) 
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COMMON/OR/ THBP» YBP> YBPN 

COMMON/PQ/JCHEM,NSP» T{55 >,PTZERO, IDIVERG, TH1, XE» YE» RCR»PTOJ, TOJ 
1# EM 1# XMU1> 01 
COMMON/PD/W( 5 5 ) » X( 55) 

C0MM0N/WAVE/XB0D(5)*XWALL(5)>AAB0D(5)*BBB00(5).CCBQD(5)>EEB0D<5)> 

ZFFB0D(5)»GGB0D(5)»LWALL>LB0D 

C0MM0N/QA/H(7*55);Q(55);RH0(55)>XMU(55) 

COMMON/ ST/ 113, I REG I. KS» KF IRS T* KKKQ, P STAR 

COMMON/TS/DVISC 55),DVISN<55),DVISP(2 )>VIS(55)>VISN(55)>VISP(2) 

COMMON /UV/I111, IERR» IPRESS, IPRESU* ISUB 

COMMON/VW/ICONT» IEND> KT» THBPN. XBPN 

COMMON/ WV/NPTS, RE» XB P> X J 

COMMON/ WX/APRESS* APR ESU 

COMMON/YZ/BPRESU,CHEMFC,CPRESU, EMS UB , R TH, X S TE P 
DIMENSION DELLX<55)>XW<2),YW(2)>THW<2) 

DIMENSION DE L V( 5 5 ) 

DATA 113/0/ 

DATA IREGI/O/ 

ISPP-0 
ISPA*0 
NSAVE-2 
XW(1 )*0. 

XW( 2 ) *10000. 

YW ( 1 ) * 10000 . 

YW ( 2 ) * 10000 • 

THW ( 1 ) * 0 • 

THW ( 2 ) * 0 • 

I SUB*0 

JSUBL*NPTS+1 
JSUBU*NPTS+1 
DO 910 I *1. NPTS 
IF(EMd).GT.EMSUB) GO TO 910 
J SUBL*1 
ISUB-1 
GO TO 800 
910 CONTINUE 
GO TO 801 

800 CONTINUE 

DO 802 I * 1> N PT S 
II-NPTS-I+1 

IF(EM(II).GT.EMSUB) GO TO 802 
JSUBU-II+1 
GO TO 801 
802 CONTINUE 

801 CONTINUE 

I F ( ISUB.EQ.O) GO TO 10 
113*1 

KF IRS T*KQUNT 
10 CONTINUE 
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JDUM* JSUBU-1 
NP2-NPTS-1 
DO 499 K«1,NP2 
DEY*Y(K+1)-Y(K> 

IF< DEY.LT.l.E-08) GO TO 498 
IF(K.GE.JSUBL.AND.K.LE.JDUM) GO TO 498 
EM1*XM1(1.#0.>TH(K)»XMU(K)»0.»0.) 
EM2«XM2(1.*0.»TH(K+1 )»XMU(K+1)»0.»0. ) 

OELLX(K)«< Y(K+1)-Y (K ) >/<EMl-EM2 ) 

DO 776 J»l* IDD 
JJ« (J/2)*2 

IF(K.EQ.ISU).AND.JJ.NE.J) DELL X ( K ) » DE LLX ( K-l ) 
IF(K.EQ.IS(J).AND.JJ.EQ.J) DE L LX C K-l ) »DELL X ( K-2 ) 
776 CONTINUE 
GO TO 499 

498 DELLX(K)«l.E+06 

499 CONTINUE 
DELXM«DELLX( 1) 

DO 501 K«2» NP2 

IF(DELLX(K).LT.DELXM)DELXM*DELLX(K) 

501 CONTINUE 
DCHAR-DELXM 

775 DO 502 K«1>NPTS 

IF ( XLE.EQ.O. .OR. VIS( K ) .EQ.O. )G0 TO 49 
RXLE*1. /XLE 

DELV(K)».50*PR*RE/VIS <K)*RXLE 
GO TO 50 

49 0ELV(K)«1.E10 

50 DELV1«1.E10 

IF(K.NE.l) DEL Y» Y < K) - Y( K-l ) 

IF(K.NE.NPTS) DELYY»Y(K+1)-Y(K) 

IF(K.EQ.l) OELY-OELYY 
IF(K.EQ.NPTS) DELYY-DELY 
IF( DELYY.LT. DELY) DE L Y*DEL YY 
I F < 0ELY.LT.1.E-08) GO TO 502 

DELV1«DELV<K)*RH0(K)*Q(K)*DELY**2*C0S(TH(K) ) 

502 DELLX(K) -DELVI 
DELXH>DELLX( 1) 

DO 504 K«2» NPTS 

504 IF(DELLX(K) .LT.DELXM) DELXM»DELLX(K) 

DSHEAR-DELXM 

DELX*1./(1./DCHAR+1. /DSHEAR) 

DELX«DELX/XSTEP 

I F < ISPA.EQ.l > GO TO 4 

ISPA-1 

CALL SPACE ( ISPP ) 

IF ( II11.EQ. 1) RETURN 
IF(ISPP.EQ.l) GO TO 10 
4 CONTINUE 
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IF(X(1)+DELX.GT.XWALL(LWALL>) DELX-XWALL(LWALL)-X(1) 

IF ( X ( 1)+DELX.GT.XB0D( L BOD ) ) DE L X- X BOD ( L BOD ) -X 11) 
IF(JCHEM.EQ.O) GO TO 4275 
DO 505 1*1, NPTS 
DTEST-Q< I) *UIN*4.E-7/RTH 
DTEST-CHEMFC+DTEST 
505 I F ( DELX.GT.DTEST) DELX-DTEST 
4275 CONTINUE 

I F ( I13.NE.1.0R.K0UNT.NE.KFIRST) GO TO 4545 
KKKQ- KOUNT +20 
4545 CONTINUE 

IF(EM(JSUBU).LT.1.05 ) KKKQ-KOUNT+1 

XWT-XBP+DELX 

RA-1. /RAD 

IF(XWT.LT.XWd) ) GO TO 741 
IF(XWT.LE.XW(NSAVE >) GO TO 5209 
THBPN-O. 

XBPN-XW(NSAVE) 

YBPN- YW( NSAVE ) 

1111*1 
GO TO 5210 

5209 CALL TB L < X U T, TH BPN , X W , THW, NS A VE ) 

GO TO 5204 

741 THBPN-THBP+DELX/COS ( THBP )*RA 
5204 DELX-DELX/COS(THBP>*<COS(THBP)+COS(THBPN> )/2. 

XBPN-XWT 

YBPN- YBP+l SIN< THBP )+S IN ( THBPN) )*»5*DELX/CQS(THBP) 

5210 CONTINUE 

DO 5211 1-1, NPTS 
XN ( I ) -XBPN 

YN( I)*Y( I)+TAN(TH( I) ) *DELX 

5211 THN ( I ) *TH ( I ) 

IF( IBOD.EQ.l) CALL BODY ( XN ( 1 )» YN ( 1 ), THN ( 1 >, 0 ) 

I F ( IPRESS .EQ.l) CALL PRESS ( XN( 1) > PN ( 1 ), TH( 1) , THN( 1 ) ) 

I F ( IPRESU.EO.l) PN(NPTS)-PIN*(APRESU+XN(NPTS)*(BPRESU+CPRESU* 
lXN(NPTS) ) ) 

IF(IPRESU.EO.l) RETURN 

I F ( Y(NPTS) .EO.YBP) GO TO 6211 

CALL BODY(XWT,YN(NPTS ) , THN { N PTS ) » 1 ) 

XN(NPTS)*XWT 

RETURN 

6211 XN ( NPTS ) -XBPN 
YN( NPTS ) -YBPN 
THN(NPTS)-THBPN 
RETURN 
END 

SUBROUTINE SSONIC(IDG) 

COMMON/AC/IBOD»PIN 
COMMON/ AX /JSUBL, JSUBU 
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COMMON/BD/XMASS ( 55 ) 

C0MM0N/CG/AUP»BUP»CUP*0TSPRI(55)»0UP»EUP>JC0NV>THPRI(55)»YPRI(55) 
COMMON /OP / YN (55 ) 

CQMMON/EF/EM(55)>GAM(55)>P(55)»TH(55)* Y(55) 

COMMON/GK/DEIX 

CQMMON/HJ/KOUNT>LL>NPT 

CQMMQN/HL/ALPHA>BETA 

CQMM0N/HM/ALPN(7»55)#CPN(7»55)»CPXN(55)>EMN(55).»GAMN(55)»HN(7»55)> 
IL»PN(55)»QN(55)»RHON( 55 ) > RN ( 55 ) * THN ( 55 ) * TN ( 55 ) t WN ( 55 ) * XMUN ( 55 ) 
C0MM0N/RQ/AP0>AP1>AP2 

COMMON /ST/ II 3t I REG I# K * KF IRS T> KKKQ, PS TAR 
COMMON/UV/IIll» I ERR# I PRESS# IPRESU* I SUB 
COMMON /VW/IC ON T» IE NO> KT> THBPN» XBPN 
COMMON/ WV/NPTS,RE» XBP.XJ 
DIMENSION EZ(2)>ERET(2)>ERTHL(2) 

DATA LKI P / 1 /» LME/1 It L ICQ /O It L ICK /O It L1JUMP/0/ 

DATA DTHQ/O./ 

I F ( I13.NE.1.0R.K0UNT.NE.KFIRST) GO TO 1777 
XK F * X BP 

CALL DPDTH(THSBQT> JSUBL) 

ATHB* Y ( J SUBL ) 

BTHB»TAN(TH( JSUBL) ) 

I F C IREGI.EQ.O)CTHB*THSBOT/COS( TH< JSUBL))** 3 
IF( IREGI.NE.O)CTHB»( CTHB + DTHB+XDEL) 

DTHB-DTHQ 
XMKF»XMASS( JSUBU) 

1777 CONTINUE 
K-JSUBU 
DQ-XBPN-XKF 
0S-1./6. 

OQ*l. /24. 

YN ( K ) «AUP + BUP*DQ + CUP*DQ**2*.5 + DUP*DQ**3*OS + EUP*DQ**<r*OQ 
THN(K)*ATAN( BUP+CUP*DQ+DUP*DQ+*2*. 5+EUP*DQ**3*0S) 

DS*2.*DELX/(C0S( TH(K) )+COS(THN(K) ) ) 

THGH*THN ( K ) 

YGH*YN ( K ) 

IB0D1-IB0D 
I BOD* 1 

IPRES1*IPRESS 

IPRESS-0 

IPRE U1*IPRESU 

IPRESU*0 

ALS V- ALPHA 

BESV*BETA 

CALL LPOINT (JSU8U.0. ) 

K-JSUBU 
THN ( K ) * THGH 
YN { K ) -YGH 
ALPHA*. 5 
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BETA*. 5 

CALL L POINT (JSUBUsO.) 

ALPHA* ALSV 
BET A*BES V 
K-JSUBU 
THN { K ) -THGH 
YN(K)*YGH 
IBOD* IBOD1 
IPRESS-IPRES1 
IPRESU-IPREUI 

DS*2.*DELX/(C0S(TH(K) ) +COS < THN ( K > > ) 
PSA*(PN(K)-P(K))/DS 

THSA-tCUP+DUP+DQ+EUP*DQ**2*.51*COS<THN(K) >**3 
PNA — GAMN(K)*PN(K) *EMN ( K > **2 *THS A 
PYU-COS(THN(K) )*PNA+SIN( THN(K) )*PSA 
K-JSUBL 
DQ-XBPN-XKF 

YN(K)«ATHB+BTHB*DQ+CTHB*DQ*+2*.5+DTHB*DQ**3*OS 

THN(K)»ATAN(BTHB+CTHB*DQ+DTHB*DQ**2*.5) 

THSB- <CTH8+DTHB*DQ)*COS<THN(K> )**3 
0S»2.*0ELX/(CQS(TH(K) >+COS ( THN <K ) > ) 

PYB* API 
ITE1-1 
IET* 0 

1790 AP2- ( PYU-PYB )*. 5/< YN ( JSUBUJ-YN (K ) ) 

APO-PN( JSUBU)-.5*( PYB+PYU)*( YN( JSUBU)-YN(K) ) 

AP1-PYB 

PN ( K ) -APO 

ICQNT-1 

IEND-0 

KP-K 


6533 

6532 


L-K 

KT-K 

PSTAR-PN(K) 

YGH- YNIK) 

THGH-THN (K ) 

CALL C POINT 
YN ( K ) * YGH 
THN ( K ) » THGH 

PNB— GAMN(K)*PNCK> *EMN(K)**2*THSB 
PYB2-C0S(THN(K) )*PNB 
ET-PYB-PYB2 

I F ( ABS ( ET ) . LT . 1 . E-06 ) GO TO 1789 
IET-IET+1 

IF(IET.LT.20) GO TO 6532 
WRI TE ( 6» 6533 ) 

FORMATt * ET LOOP 
STOP 

CONTINUE 
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ERET ( ITE 1 ) -E T 

IF C ITE1.GT.1) GO TO 358 

ITE1-2 

PYB1-PYB 

PYB-PYB2 

GO TO 1790 

358 PYBD-PYB1— ERET (1 )* (P Y B-P YB 1 ) / ( ERET ( 2 )-ERET ( 1 ) ) 

PYB1-PYB 

ERE T ( 1 ) -ERET ( 2 ) 

PYB-PYBD 
GO TO 1790 
1789 CONTINUE 
ICONT *1 
IEND-0 

JSUBL1-JSUBL+1 

JSUBU1- JSUBU—1 

DO 1734 KK-JSUBL1* JSUBU1 

K-JSUBU-KK+1 

THN ( K ) -TH ( K ) 

YN(K) -TAN< TH(K) )*DELX+Y< K) 

PN ( K ) ■ APO+AP 1 * ( YN(K)-YN (JSUBL) )+AP2 *( YN(K)-YN ( J SUBL ) ) ** 2 

KIP-1 

ME- 1 

KP-K 

L-K 

KT-K 

PSTAR-PN(K) 

DS-2.*DELX/(C0S(TH(K) ) +C0 S ( THN ( K ) ) ) 

YN(K)-Y(K>*.5*( TAN(TH(K) ) +TAN( THN( K) ) M-DELX 
YGH-YN(K) 

THGH-THN(K ) 

CALL CPOINT 
YN { K ) » YGH 
THN ( K ) » THGH 

YN(K) - Y ( K ) +.5*(TAN(TH(K) )+TAN(THN(K) ) )*DELX 
KP-K+1 

TERM* (RHON(K)+QN<K)*COS( THN (K) ) +RHON < K P ) *QN < K P > *C OS < THN(KP)) )/2. 
XMDUM-XMASS(KP)+TERM*(YN(K) **( l.+XJ)— YN(KP )** (1 • ♦ X J ) > /{l.+XJ ) 
Q1J-1.+XJ 

YN(K)-(YN(KP)**Q1J+Q1J*(XMASS(K)— XMASS(KP) ) /TERM > ** < 1 . /Q 1 J > 

1734 CONTINUE 

IF(KOUNT.NE.KKKQ-l) RETURN 
XMDIFF-XMKF-XMASS< JSUBU) 

JK- JSUBL+1 
DO 347 I- JK* JSUBU 
347 XMASS (I) -XMASSC I J+XMDIFF 
JSU1- JSUBU-1 
WRITE(6*1418) 

1418 FORMAT (10X»*C0RR EC TED INTERMEDIATE S TR E A ML I NE S + /2 X* * STRE AML I NE NO. 
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1*#7X,*X*,12X,*Y*,11X,*TH*> 

DO 366 KK-1. JSU1 
K- JSUBU— KK 
KIP-1 
ME - 1 

DTERM-O. 

DYDX«TAN(THPRI(K)> 

D2YDX2-DTSPRI (K) /COSt THPRI(K) )*+3*.5 
IFtK.EQ.l )D2YDX2- CTHB*.5 
XDEl-XBPN-XKF 

6030 YSTAR»YPRI(K)*DYDX*XDEL+D2Y0X2*XDEU‘*2+DTERM*XDEL**3*0S 
THSTAR»ATAN(DYDX+2.*D2YDX2*XDEL+DTERM*XDEL« [ *2*.5) 

KP-K+1 

TERM»(RHON(KP>*QN(KP ) *C0S ( THN ( KP ) ) + RH0N < K ) *QN ( K ) * COS ( THS T AR ) ) /2. 
X1J-1.+XJ 

XMDUM«XMASS(KP)+TERM*(YSTAR**X1J-YN(KP)*+X1J ) /X1J 
EZ ( ME ) -XMDUM— XMASS (K ) 

IFtABStEZ(ME) ).LT.l.E-06 ) 60 TO 6034 

KIP-KIP+1 

GO TO (6041. 6042 ). ME 

6041 ME-2 
DTERM1-DTERM 
DTERM--.01 /XDEL**2 
60 TO 6030 

6042 DTERMD»DTERM1-EZ(1)*(DTERM-DTERM1) /(EZt2)-EZ(l)) 

DTERM1-DTERM 

DTERM-DTERMD 
EZ ( 1 ) -EZ ( 2 ) 

IFtKIP.LE.20) GO TO 6030 
WRITE (6.6081 ) 

6081 FORMAT ( * TOO MANY ITERATIONS FOR ONE POINT IN SSONIC*) 

STOP 

6034 IFtK.EQ.l) 60 TO 6036 
YNt K) -YSTAR 
THN ( K ) ■ THS TAR 
XDEL1-XDEL/4. 

DO 1417 1-1.4 
XDE»XDEL1*FL0AT( I) 

XPRNT-XKF+XDE 

YPRNT»YPRI(K)+DYDX*XDE+D2YDX2*XDE**2+DTERM*XDE**3*0S 
THPRNT-ATANt DYDX + 2 . *D 2 YD X2 *XD E + DTE RM *XDE **2* . 5 ) 

WRITE (6.1419 ) K» XPRNT. YPRNT. THPRNT 
1419 F0RMAT(5X. 15. 5X» 3E13.5) 

1417 CONTINUE 
GO TO 386 

6036 ERTH-THSTAR-THNt JSUBL) 

JCONV-O 

113-2 

ERTHL ( LME ) -ERTH 
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IF (LIJUMP.EQ.l) GO TO 2501 

IF ( A BS ( E R THL ( L ME ) ) . L T • • 001 ) GO TO 2501 

LKIP*LKIP+1 

GO TO (2502,2503)* LME 

2502 LME*2 
DTHB2*DTHB 
DTHQ*DTHB-« 05 
GO TO 2504 

2503 IF(LICQ.EQ.l) GO TO 2505 
IF(ERTHL(l)*ERTHL(2).LT.O.) GO TO 2505 
IF (LICK.EQ.l) GO TO 2506 

LICK* 1 
RTHl*-.5 

IF(ABS(ERTHL(2)).GT.ABS(ERTHL(1))) RTHL— RTHL 

2506 IF(A8S(ERTHL(2)).GT.ABS(ERTHL<1)).AND.LKIP.GE.4) GO TO 2507 
DTHB1 *DTHB2 

0THB2 *DTHB 
DTHQ* DTHB + RTHL 
2509 ERTHX*ERTHL ( 1 ) 

ERTHL(1)-ERTHL(2) 

IF(LKIP.LE.IO) GO TO 2504 
WRITE (6, 2508 ) 

2508 FORMAT ( * TOO MANY ITERATIONS IN LOWER WALL LOOP IN SSONIC*) 

STOP 

2507 PMB*ERTHL(l)*DTHB + *2-ERTHL<2)*DTHB2**2-*ERTHL<2)*DTHBl**2-ERTHX* 
10THB**2+ERTHX*0THB2**2-ERTHL (1)*QTHB1**2 

PMC «E RTHL (2 )*DTHB2-ER THL (1 )*DTH8+ERTHX*DTHB-ERTHL (2)*DTHB1 
1+ERTHLtl >*DTHB1-ERTHX*DTHB2 
DTHQ — PMB/(2.*PMC) 

L I J UMP *1 
GO TO 2504 
2505 LICQ* 1 

DTHD«DTHB2-ERTHL(1 ) * ( DTHB-DTHB2 ) / ( ERTHL ( 2 ) -ERTHL ( 1 ) ) 

DTHBI-DTHB2 
DTHB2-DTHB 
DTHQ *DTHO 
GO TO 2509 
2501 JCONV* 1 
113*0 
LKI P* 1 
LME* 1 
LICQ-0 
LICK-0 
LIJUMP-0 
IREGI-1 
DTHQ-O. 

2504 IF ( JCONV. EQ. 0 ) DTHB*D THQ 
386 CONTINUE 
RETURN 


I 


APPENDIX A 


END 

SUBROUTINE BOD Y ( XI# Y, TH# ID ) 

COMMON/AC/ IBOD# PIN 
COMMON/XO/XOO 

COMMON/ZY/ABOD# B BO D» C BOD# E BOD# FBOD»GBOD# I AVE » I PUNC H# J BOD > KKKKK 
COMMON/WAVE/XBOD(5 )# XWALL ( 5 )# AABOO (5 > # BB BOD ( 5 ) » CC BOD < 5 ) # E E BOD ( 5 ) # 
ZFFB0D(5)#GGB0D(5)#LWALL#LB0D 
XB»XBOD( LBOD-1) 

IF( (LBOD-I).EQ.O) XB-0.0 
X* X 1— XB 

IF(ID.EQ.l) GO TO 4 
IF( IBOD.EQ.O) GO TO 1 
X * X 1— X B— X 00 

Y-ABOD+X*( BBQD+X+CBOD ) 

TH-ATAN(BB0D+2.*CB0D*X> 

GO TO 2 

1 Y-0. 

TH-O. 

GO TO 2 

4 XB-XWALL (LWALL-1 ) 

IF( (LWALL-1) .EQ.O) XB-0.0 
X-X1-XB 

Y-EBOD + X* ( F B OD + X*GBOD) 

TH-ATAN(FB0D+2.*GB0D*X> 

2 RETURN 
END 

SUBROUTINE D PDTH ( D TD S # I ) 

COMMON/ AX /JSUBL# JSUBU 

C0MM0N/EF/EM<55 >#GAM (55)#P(55)»TH(55)#Y(55) 

COMMON/RO/APO# API# AP 2 
CALL SHEAR(I#ASHEAR) 

ASH-ASHE AR 

PY«AP1+2.*AP2*(Y(I)-Y(JSUBL)> 

D2«Y( I+1>-Yl I ) 

01 » Y « I >— Y < I — 1 *■ 

SUM-D1+D2 

RAT1-D1/D2 

RAT2-D2/D1 

IF(I.GT. JSUBU) P Y* ( P ( I + l ) +RAT1-P ( I ) *( R A T 1-R A T2 ) -P <I-1)*RAT2)/SUM 
THY- (TH( I+1)*RAT1— TH ( I ) * { R AT 1— R AT 2 >-TH ( 1-1 > *RAT2 ) / SUM 
DP D S «(ASH*COS(TH(I))**2-GAM(I)*P(I)*EM(I)**2*COS(TH(I))*THY 

1-SIN( TH(I) )*PY) /( EM< I )**2*C0S( TH< I ) ) **2-1. ) 

DPDN-PY/COS( TH( I ) ) -T A N ( TH ( I ) ) * DP DS 
GS-1. /GAM ( I ) 

SM-l./EM(I)+*2 
DTDS«-DPDN*GS/Pt I) *SM 
RETURN 
END 

SUBROUTINE CPOINT 
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COMMON/AL/GAR,GEW 
COMMON/BA/ALP( 7, 5 5 >, EMINF, WINF 
CQMMON/BO/GAMB,PB, QB , RHOB, THB» WB, XMUB, YB 
COMMON/CA/WDOTN (7, 55 ),XN(55 ) 

COMMON/C J /C P ( 7, 55 ),C Pl( 7 ),CPX{ 55) 

C0MM0N/CK/WTM0LE(7) 

C0MM0N/DB/BETB(20), IS (20), IDD, IJENK, JENKI 
C0MM0N/DP/YN(55 ) 

COMMON/ED/CPIN,RO 

C0MM0N/EF/EM(55 ),GAM(55),P(55),TH(55),Y<55) 

COMMON/EG/EIN,PR,XLE 
C0MM0N/EP/GAMINF,H1( 7), RINF 
COMMON/GF/DELY, IFS,KOUNTO, MMM 
COMMON/GK /DEL X 
C0MM0N/HL/ALPHA,6E TA 

COMMON/HM /ALPN ( 7,55 ) , CPN( 7, 55) , C P XN ( 55 ) , EMN ( 5 5 ) , G AMN ( 5 5 ) , HN ( 7, 5 5 ) , 
IL,PN(55),QN(55),RH0N(55),RN(55),THN(55),TN(55),WN(55),XMUN(55) 
CQMMON/HN /CHC < 2 ) , C PB (7), C P X P ( 2 ) , D ALD IF ( 7 > » D ALP B (7) , DO ALP B ( 7 ) » DELS* 
AEMP<2),HB(7),HC(7),RP(2>,S3A<7>,S3B(7>,S3D<7),WD0TB(7),XP(2) 
COMMON/PD/W(55),X(55) 

COMMON/PQ/JCHEM,NSP, T (55) 

COMMON/QA/H( 7, 55 ) , 0 ( 55 ) , R HO ( 55 ) , XMU( 55 ) 
C0MM0N/QS/RH0P(2),WD0T(7,55),WD0TC(7),WP(2),XMUP(2) 

COMMON /SQ/BQN (55 ), DA L PN ( 7, 5 5 ) , DBQN ( 5 5 ) , DC P XN ( 5 5 ) , DOALPN( 7,55 ), 
10TAUN(55 ) , TAUN( 55) 

COMMON/SS /AL1,AL2, BO 1 , B02 , C 1, C 2 , C H 1, CH2, 0 B 1 , 0 B2 , D 01, DD2, OT 1, DT2 , 0 V 
Al, DV2, PX1, PX2, TA1, TA2, TH1, TH2, VI, V2, Yl, Y2 
COMMON/ST/ 113, I REGI,K , KF I RS T, KKKQ, P ST AR 

COMMON/TS /DVIS(55),DVISN(55),DVISP(2),VIS(55),VISN(55)»VISP<2) 
COMMON/TU/BQ(55),DALP(7,55>,DBQ<55),DCPX(55>,DDALP<7,55),OTAU<55>, 
1TAU( 55) 

COMMON/TV/ALPP( 7,2 ) , B ET, BO P ( 2 ) , D ACHP ( 7, 2 ) , 0 AL P P ( 7 , 2 ) , DBQP ( 2 ) , 
1DCPXP(2),DDALPP(7,2),DTAUP(2)»DTCHP(2),GAMP(2)»PP(2),QP(2)» 

2TAUP ( 2 ) , THP ( 2 ), TP ( 2 ), YP (2 ) 

C0MM0N/VT/DACH(7,55),DTCH(55) 

COMMON/VW/ ICONT, I END, KT, THBPN, XBPN 
COMMON/WV/NPTS, RE, XB P , X J 

DIMENSION ALPSS(7),DALPSS ( 7 >, DD ALP S ( 7 ), HSS < 7) , C PS S ( 7 ) 

DIMENSION DUMCHP(7),DACHSS (7) 

I F ( I END . EQ • 1 ) GO TO 601 
EM3«XM3( ALPHA# BETA, TH(K),THN (L) ) 

XN( L )-XBPN 

IF(IFS.EQ.l.AND.L.EQ.ISCMMM) ) EM3 * T AN ( BETB ( MMM ) ) 
IF(IFS.EQ.2.AND.L.EQ.IS(MMM)) EM 3* . 5 * ( TAN ( BE TB ( MMM ) ) +TAN ( BET ) ) 

YN( L)-Y(K)+DELX*EM3 
IF(ICONT.EQ.l) GO TO 601 
KP * 1 

EM2P-X Ml (ALPHA, BETA, TH (KT+ 1 ), X MU ( K T* 1 >, THN ( L ), XMUN < L > ) 

EM2 L-X Ml ( ALPHA, BETA, TH(KT), XMU(KT), THN(L ), XMUN(L) ) 


58 



APPENDIX A 


351 EM2K«0.5*(EM2L+EM2P) 

XP(KP)«XBP 

YP(KP)-YN(L)-0ELX*EM2K 

IF(KP.EQ.1.AND.IS( MMM ) .EQ.K.ANO. ( ( MMM/ 2 ) *2 . EQ . MMM ) ) 
AYP(KP)«Y(KT)+2.E-4 
KIP2-0 

IF(YP(KP).LT.Y(KT+l)+l.E-05.AND.YP(KP).GT.Y(KT)-l.E-05) GO TO 201 
4150 F0RMAT(3I5»6E13*5) 

WRITE <6* 9191 ) 

WR ITE ( 6* 41 50 ) KP , L » KT, ALPHA* YP ( KP I * YN ( L ) , THN ( L ) » XMUN ( L ) , PN ( L ) 

WRITE (6* 111) Y(KT)>Y(K)»DELX,EM2K,XBPN,TH(K)»XMU(KT),XMU(KT+1)» 
1DELS,THBPN,DELY» Y( KT+1) 

WRITE (6,2000) 

2000 FORMAT ( 97H Y LOCATION OF CHARACTERISTIC ON OR IGIONAL DATA LINE IS 

10UTSIDE OF BOUNDING STREAMLINES IN CPOINT ) 

CALL PUNCH 
STOP 

201 RATB* ( YP ( KP )-Y(KT) )/ (Y(KT+1)-Y (KT ) ) 

EM2«EM2L+RATB*(EM2P-EM2L) 

YBT»YP(KP) 

YP(KP )«YN(L)-DELX*EM2 

IF < ( ABS( YP (KP )-YBT )/ABS ( Y(KT + 1 )-Y (KT ) ) ) .LT.0.01 )G0 TO 202 
KIP2-KIP2+1 

IF(KIP2.LE.20) GO TO 201 
WRITE (6, 9191 ) 

9191 FORMATl 1H1 ) 

WRI TE (6,2001 ) 

2001 FORMAT ( 56H UNABLE TO LOCATE Y LOCATION OF CHARACTERISTIC IN CPOINT 
1) 

STOP 

202 RATB«(YP(KP) -Y ( KT ) ) / ( Y C KT + 1 ) -Y ( KT ) ) 

QP(KP )-Q(KT)+RATB* ( Q ( KT + 1 )-Q (K T ) ) 

PP(KP)«P(KT)+RATB*(P(KT+1 )-P (KT) ) 

TP(KP) *T (KT)+RATB*(T (KT+1)— T(KT) ) 

THP(KP)»TH(KT)+RATB*( TH( KT+1 ) -TH( KT ) ) 
VISP(KP)«VIS(KT)+RATB*(VIS(KT+1)-VIS(KT)) 
DVISP(KP)*DVIS(KT)+RATB*(DVIS(KT+1)— DVIS(KT)) 

TAUP ( KP ) » T AU ( KT)+RATB*( TAU(KT+1 )— TAU(KT) ) 

BOP (KP)*BQ(KT ) +R AT B* ( BQ ( K T + l )— BO ( KT ) ) 

OCPXP(KP) *DCPX(KT) +RATB*(DCPX(KT+1 )— DCPX(KT) ) 

DTAUP(KP)«DTAU(KT) +R A TB* < D T AU ( KT+ 1 ) -D T AU ( K T ) ) 

DBQP (KP)*DBQ(KT )+RATB*(DBQ (KT + D-DBQ (KT) ) 

DTCHP (KP) »DTCH(KT) +R ATB* ( D TCH ( KT+ 1 ) -DT CH ( K T ) ) 

CPXP(KP)»0.0 
WP(KP )-0.0 
CHC(KP)«0. 

CALL THERMO(TP(KP),HB,CPB) 

DO 4020 J«l» NS P 

ALPP(J,KP)«ALP(J, KT ) +RATB* (ALP ( J , KT+1)-ALP(J, KT)) 
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DALPP(J>KP)»DALP<J» KT) +RATB* ( DALP < J » K T+l ) -DALP ( J » KT>> 
DDALPPt J#KP)»DDALP(J# K T) +RA TB* ( DD AL P < J# K T+l ) -DO ALP ( J# KT) ) 
CHC(KP)«CHC(KP>+DALPPIJ»KP)*CPB(J> 
CPXP(KP)«CPXP<KP)+ALPP(J#KP)*CPB(J) 

WP(KP)*WP(KP)+ ALPP(J#KP) /WTMOLEIJ ) 

DACHPt J#KP )*DACH( J#KT ) +RATB* ( DACH ( J# KT+1 )-DACH< J# KT) ) 

I F ( KP • NE • 2 ) GO TO 4020 

WDOTB( J) «WDOT( J»KT> + RATBM WDOT( J# KT+1 )-WDOT< J#KT) ) 

4020 CONTINUE 

WP(KP)*1./WP(KP) 

RP (KP )-RO/WP (KP ) 

GAMPJKP)-CPXP(KP) /(CPXP(KP)-RP(KP ) /CP IN) 

RK«1. /RP(KP) 

RHOP<KP)«PP(KP)*WP(KP >*GEW/TP(KP) 

EMP <KP)«QP(KP)*EMINF*SQRT< GAR/ GAMP <KP)*RK /TP (KP ) ) 
XMUP(KP)«ZMU(EMP(KP) J 
IF(KP.E0.2) GO TO 601 
KP«2 

IF(IFS.EO.O) KT-L 

EM2P»XM2( ALPHA# BETA# TH( KT + 1 ) # XMU ( K T+l ) > THN ( L ) # XMUN ( L ) ) 
EM2L«XM2C ALPHA# BETA# TH( KT )» XMU ( KT )# THN ( L )» XMUN ( L ) ) 

GO TO 351 

GET ALL THE PROPERTIES AT THE C POINT 
601 CONTINUE 

IF(IFS.EO.O) GO TO 8600 
Y SS-Y C K > 

P SS»P (K) 

Q SS»Q (K) 

T SS-T (K) 

TH SS»TH (K) 

BO S S*BQ (K) 

W SS»W (K> 

TAU SS-TAU (K) 

RHO SS-RHO (K) 

CPX SS*CPX (K) 

DBQ S$«DBQ (K) 

DTAUSS*DTAU( K) 

DC P XS $*DCP X ( K ) 

DTCHSS-DTCH(K) 

DO 1555 J* 1# NSP 
CPSS(J )»CP< J#K> 

HSS ( J )*H( J»K) 

ALPSS(J)«ALP( J#K) 

OALPSSt J) «DALP( J#K) 

DACHSS(J)«DACH< J#K) 

1555 DDALPS< J >«DDALP( J# K> 

CALL OPOINT ( K# L ) 

KT«K 

8600 CONTINUE 
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CH2D-0.0 

DO AO 30 J»l> NS P 
CH2D«CH2D + DALP(J»K)*CP(J.»K) 
A030 CONTINUE 

IF( BETA. NE. 0.0) GO TO A036 
TAUN( L) -TAU(K) 

BQN(L )-BQ(K) 

VISN(L)»VIS(K> 

DVISN(L)-DVIS(K) 

DCPXN(L)*DCPX(K) 

DTAUN(L)“DTAU(K) 

DBQN ( L ) *DB Q ( K ) 

THN(L)»TH(K) 

CPXN(L)«CPX(K) 

TN(L)*T(K)+OTCH(K) 

WN(L)-WCK) 

CH2C*CH2D 
DO A 035 J«l# NS P 
DALPN< J,L)«DALP( J>K) 
DDALPN(J>L)*DDALP(J,K) 

HC( J)«H( J,K) 

WDOTC (J ) *WDOTN( L ) 

A035 CONTINUE 
A036 CONTINUE 

IF(BETA.EQ.O.O) 60 TO 302 
CH2C-0. 

DO 301 J*l> NS P 
HC( J)-HN(J»K) 

WDOTC( J)«WDOTN( J,L ) 

301 CH2C*CH2C+DALPN(J» U *CPN< J> L) 

302 CONTINUE 
V1«VISP(1) 

V2 * VI SN ( L ) 

DV1«DVISP ( 1 ) 

0V2«DVISN(L) 

T A1 *T AUP ( 1 ) 

TA2* T AUN ( L ) 

DT1»DTAUP (1) 

DT2 “DTAUN ( L ) 

BQ1* BQP ( 1 ) 

BQ2*BQN(L ) 

Y1-YPC1) 

Y2« YN(L) 

TH1 « THP { 1 ) 

TH2 «THN ( L ) 

Cl-CPXP(l) 

C2«CPXN(L ) 

OBl-DBQP(l) 

0B2«DBQN(L) 
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PXl-DCPXP(l) 

PX2 » DCPXN ( L ) 

CHI * CHC ( 1 ) 

IF(ICONT.EQ.l) GQ TO 4309 
S1A*S1(XJ,RE) 

S2A«S2(XJ, RE) 

4309 V1«VIS(K> 

DVl-OVIS(K) 

TA1«TAU(K) 

DTl-DTAU(K) 

B01 *BQ ( K ) 

Y1»Y(K) 

TH1«TH(K) 

C1«CPX(K) 

DB1* DBQ ( K ) 

PX1«0CPX(K) 

CH1»CH20 
S 10» S 1 ( X RE ) 
S20«S2(X4,RE) 
IF(ICQNT.EQ.l) GQ TO 6427 
I F ( L • EQ« NP TS ) GO TO 6427 
V1»VISP(2) 

DV1«DVISP (2 ) 

TA1 «T AUP ( 2 ) 

DTI *DTAUP ( 2 ) 

BQ1«BQP (2 ) 

Y1«YP (2) 

TH1 *THP ( 2 ) 

C1*CPXP( 2) 

0B1«DBQP(2> 

PX1»DCPXP<2) 

CH1«CHC ( 2 ) 

SI B* S 1 ( X J > RE ) 

S2B«S2( X J> RE ) 

6427 CONTINUE 
S3AT-0.0 
S3BT-0.0 
S30T-0.0 

DO 4040 J-l> NS P 
AL2«DALPN< J»L) 

DD2»DDALPN< J#U 

IF ( ICONT.EQ.l) GQ TO 4311 

V1«VISP( 1) 

DV1«DVISP<1) 

AL1«DALPP( J» 1) 

DD1"D0ALPP ( 1 ) 

BQ1* BOP ( 1 ) 

TH1 «THP ( I ) 
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Y 1 * YP ( 1 ) 

S 3 A ( J ) * S 3 ( X J * Re ) 

S3AT*S3AT+S3A(J)/WTM0LE(J) 

4311 AL1»DALP( J,KT> 

DD1*DDALP ( J* KT ) 

Vl-VIS(K) 

DV1-DVISCK) 

BQl-BQ(KT) 

THl-TH(KT) 

Yl- Y(KT) 

S3D ( J ) * S3 ( X J* RE ) 

S3DT-S30T+S3D< J) /WTMOLEC J) 

IF ( 1CQNT«EQ*1)G0 TO 4040 
IF ( L • EQ#NPTS )G0 TO 4040 
V1«VISP<2 > 

0 VI «D VIS P ( 2 ) 

AL 1* D ALP P ( 2 ) 

DD1*DDALPP(J»2) 

BQ1 ■ BQP ( 2 ) 

TH 1 * THP < 2 ) 

Y1*YP(2) 

S3B< J)*S3( XJ, RE) 

S3BT«S3BT+S3B(J ) /WTMQLE (J ) 

4040 CONTINUE 

I F ( ICONT.EQ. 1 ) GO TO 6429 
GAMB*G AMP ( 1 ) 

PB-PP (1 ) 

QB-QP ( 1) 

RH08 * RHOP ( 1 ) 

THB* THP ( 1 ) 

WB-WP(l) 

XMUB * XMUP ( 1 ) 

YB* YP ( 1 ) 

A1»F1(L) 

A2 * F 2 ( L f S 1 A# S2A*S3AT ) 

IF ( JCHEM.EQ.l > GO TO 7252 
A3-0. 

GO TO 7255 

7252 DO 1712 J»1,NSP 

1712 DUMCHP(J )*(DACHP(J*1) +D ACH ( J * K ) ) /2. 

DTCHP(1)*(DTCHP(1)+DTCH<K) ) /Z. 

TP1» (T(L )+TP <1)+DTCH< L> ) / 2. 

A3-F3(TPl#DTCHP(l)#TP(l),TN(L)f THP(l)# THN(L)#DUMCHP#WP(1)#WN(L) ) 
72 55 A4* F4 ( BET A* 1 XMUP < 1 ), THP < 1) * XMUN( L) * THN(L ) ) 

A2 ■ ( A 2+A3 ) *A4 
IF(L.EQ.NPTS) GO TO 6429 
G AMB «G AM P ( 2 ) 

PB*PP (2) 

Q B* QP ( 2 ) 


63 


APPENDIX A 


RH0B=RHQP<2) 

THB* Trt? ( 2 ) 

WB=WP<2) 

XMUB=XMUP(2) 

YB = YP (2 ) 

B 1* F j. ( L ) 

B2«F2(L,S1B,S2B,S3BT> 

IF ( JCHEM.EQ.l > GO TO 7253 
B3»0. 

GO TO 7256 

7253 DO 1713 J*1>NSP 

1713 DUMCHP ( J ) * ( DACHP ( J>2 ) +DACH(J,K) )/2. 

DTCHP(2)*(DTCHP(2)+0TCH(K) )/2» 

TP2«(T(L>+TP(2)+DTCH(L) )/2. 

B3«F3(TP2,0TCHP(2)»TP(2)»TN(L)»THP(2)#THN(L)»DUMCHP,WP(2),WN(L) ) 
7256 B4«F4CBETA,-1., XMUP < 2 ) > THP ( 2 ) > X MUN ( L ) > THN( L ) ) 

B2MB2+B3)*B4 
6429 CONTINUE 

I F < IENQ.EQ.O) GO TO 630 
THN ( L ) *THBPN 

PN(L)*PP{1)+<THP(1)-THN(NPTS )-A2*( XN (NPTS )-XP(l) > )/Al 
GO TO 631 

630 IF ( ICONT.EQ.O ) 

1PN(L)*(A1*PP(1)+B1*PP(2)+THP(1)—THP(2)— 

2 (A2 + B2 )*XN(L)+A2*XP( 1 )+B2*XP(2 > ) /( Al + Bl) 

IF(ICONT.EQ.l) 

1 PN ( L ) *P S TAR 
IFCICONT.EQ.O) 

1THN(L)«THP(1)-A1*(PN(L)-PP(1))-A2*(XN(L)-XP(1) ) 

631 CONTINUE 

DELS -2.* (XN(L )-X(K ) ) / (COS ( TH(K ) )+COS ( THN ( L ) ) ) 

TERM2»RH0(K)*Q(K) 

IFIBETA.GT.O. )TERM2* ( TERM2+RH0N ( L > *QN ( L 1 )*.5 
0T»1. /TERM2 

QN(L)*CS1D*0ELS~PN(L)+P(K) )*0T+Q(K) 

IF( BETA.EQ.O.O)CPXN( L )*CPX(K) 

DTCHEM*DTCH(L)+(PN(L)“P(K) )*(QN(L)+Q(K))/(CPX(K)+CPXN(L) )*EIN*OT 

0T0IFF*S20*DELS*£IN*2./(CPX<K)+CPXN< L) )*0T 

TNIL) -T(K) +DTCHEM+DTQIFF 

CPXN(L)*0.0 

WN ( L ) *0 . 0 

CALL THERM0(TN(L)>H1,CP1) 

DO 4050 J»l, NS P 
DALDIFU)»S3 0{ J)*DELS*OT 

ALPN ( J> L)*ALP(J»K) +D ALD I F ( J ) + DACH ( J > L ) 

HN< J, L)«H1( J) 

CPN< J>L)«CP1< J) 

WN(L)«WN(L)+ALPN(J, L)/WTMOLE(J) 

CPXN(L)«CPXN(L)+ALPN< J, L)*CPN(J, L) 
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4050 CONTINUE 

WN(l)-l./WN(L ) 

RN ( L > »RO/WN( L ) 

GAMN<L)«CPXN<L)/<CPXN<D-RN(L) /CP IN) 

0RN*1./RN( L) 

RHON ( L ) «PN(L)+WN(L)*G£W/TN(L) 

EMN(L)«QN(L)*EMINF*SQRT(GAR/GAMN(L)*ORN/TN(L)) 
IF(EMN<L). IT. 1.0001) GO TO 900 
7360 XMUN(L J»ZMU(EMN(L ) ) 

900 CONTINUE 

IF ( IFS.EQ.O ) GO TO 1361 

Y <K)»Y SS 

P ( K ) * P SS 

Q <K)«Q SS 

T ( K ) *T SS 

W <K)*W SS 

TH (K)-TH SS 

BQ <K)*BQ SS 

TAU (K)-TAU SS 

OBQ (K)-OBQ SS 

CPX <K)«CPX SS 

RHO ( K ) » RHO SS 

DCPX(K)«DCPXSS 

DTAU(K)»DTAUSS 

DTCH(K)«DTCHSS 

DO 1556 J* 1. NSP 

ALP(J»K)»ALPSS(J) 

DALP(J>K)«DALPSS(J) 

DACH(J.K)«DACHSS(J) 

DDALPi J»K)*DDALPS( J> 

CP< J.K)«CPSS ( J) 

1556 H(J,K)«HSSU) 

1361 CONTINUE 
111 F0RMAT(10X,9E13.5) 

RETURN 

END 

SUBROUTINE SPACE(ISPP) 

COMMON /AC /IBOD. PIN 
CQMMON/Al/GAR.GEW 
COMMON/AX/JSUBL. JSUBU 
COMMON /B A / AL P ( 7> 55 )> EMINF. WINF 
COMMON/BD/XMASS (55 ) 

COMMON/CA/WDOTN( 7, 55 ) .XN<55 ) 

COMMON/C J /CP (7, 55),CP1(7).CPX(55) 
C0MM0N/CK/WTM0LE(7) 

COMMON /DB / BE TB( 20). IS (20), IDD, IJENK. JENKI 
C0MM0N/DP/YN(55) 

COMMON/ED/CPIN.RO 

C0MM0N/EF/EM(55)»GAM(55).P(55).TH(55).Y(55) 
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C0MM0N/EP/GAMINF,H1(7),RINF 

COMMON/GK/DELX 

CQMMON/HM/ALPN(7»55),CPN(7»55)»CPXN(55),EMN(55)»GAMN(55),HN(7,55)» 
IL, PN(55),QN(55),RHON (55 ), RN ( 55 ), THN ( 55 >, TN ( 55 ) , WN ( 5 5 ), XMUN(55) 
COMMON/PD/ W( 55 >,X( 55 > 

COMMON/PQ/JCHEM,NSP,T (55) 

COMMON /QA/H(7, 55), Q(55),RHQ(55),XMU(55) 

COMMON/RC /R ( 55 ) 

COMMON/RO/APO, API# AP2 

COMMQN/SQ/BQN(55),DALPN(7,55),DBQN(55),DCPXN(55)»DDALPN(7»55)» 

1DTAUN(55),TAUN(55) 

COMMON/ST/ 113, IREGI, K S, KF IRS T, KKKQ, PS TAR 

COMMON/TS/OVIS(55),DVISN(55),DVISP(2), VIS (55 ), VISN(55), VISP(2) 
C0MMQN/TU/BQ(55)»DALP(7,55),DBQ(55)»DCPX(55)»DDALP(7>55),DTAU(55), 
1TAU( 55) 

COMMON/UV/IIll,IERR»IPRESS,IPRESU, ISUB 
COMMON/WV/NPTS,RE, XBP,XJ 
COMMON/WX/APRESS, APRESU 

COMMON/XY/APRS, APUS, DELTA Y,E BOOS, I BODS, INTACT, I PR S, I PUS, ITYP, 
1JB0DS,MMAX,RHEAT,XK2, XKA, YBOT, YTP 
COMMON/YX /ABODS,BPRESS,CPRESS 

COMMON /Z Y/ ABOD, BBOD, C BOD, EBOD,F BOO, GBOD, i A VE, I PUNCH, J BOD, KKKKK 
DIMENSION ISN(A),XMASSN(55) 

XJ2-1.-XJ 

XJ1-1.+XJ 

DY» DELTAY 

DO 1 I«1,IDD 

IF(IS(I).EQ.O) GO TO 1 

N«- 1 

IF ( (I/2)*2.EQ.I) N-l 
ISI-ISCI ) 

DYS*A8S(Y ( I5I+N)— Y (ISI+2*N) ) 

IF(DYS.IT.2.*DY) GO TO 2 

C********* A00 pj ON DOWNSTREAM SIDE OF SHOCK ***** 

ISM«IS(I )-l 

IF((I/2)*2,EQ«I) ISM»IS(I>*2 
DO 3 KK* IS M, NP TS 
K-NPTS+ISM-KK 
J-K + l 

CALL SWITCH( J, K) 

3 CONTINUE 
NPTS-NPTS+1 
ISPP-1 

IF ( JSUBL »GT • IS ( I ) ) JSUBL* JSUBL + 1 
IF(JSUBU.GT.ISd)) J S UBU* JSUBU+1 
DO A J«1,IDD 

IF ( IS ( J ) ♦ GT. IS ( I ) ) IS (J )*IS( J)+l 
A CONTINUE 

IF ( ( I /2 ) * 2 « N E • I ) I S ( I )«IS(I)*1 
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lllf 


L* ISM-1 
M-ISM+1 
K-ISM 
RAT * • 5 


p 

( K ) * P 

{ L ) +RA T * ( P 

(M)-P 

(L) ) 

TH 

(K) «TH 

( L)+RAT*( TH 

(M)-TH 

<L) ) 

X 

(K)»X 

(L)+RAT*(X 

(M)-X 

(L) ) 

Y 

(K) *Y 

(L )+RAT*( Y 

<M)-Y 

(L) ) 

Q 

( K ) * Q 

( L)+RAT*(Q 

( M ) — Q 

(L) ) 

T 

(K)«T 

(L ) + RAT*(T 

(M)-T 

(L) ) 

VIS<K)»VIS(L)+RAT*<VIS(M)-VIS<L)> 


DVIS(K)»DVIS(L)*RAT*(DVIS(M) 

-DVIS(L) ) 


BQ 

(K)«BQ 

C L ) +RAT* ( BQ 

(M)-BQ 

(L) ) 

TAU 

(K) »TAU 

( L ) + RAT *( TAU 

(M)-TAU 

( L ) ) 

DBQ 

(K)-DBQ 

( L ) +RAT*( DBQ 

(M)-DBQ 

(L) ) 

DC P X 

(K)«DCPX 

<L J + RATMDCPX 

(M)-DCPX 

(L) ) 

DTAU 

(K)«DTAU 

( L ) +RAT *( DTAU 

(M)-DTAU 

(L) ) 


XMASS <K)»XMASS< L ) +R A T*< XM A S S ( M ) -X M AS S < L > ) 

CPX(K >«0. 

W(K) «0. 

CALL THERMO (T(K);H1;CP1) 

DO 5 J »1> NS P 

ALP ( J> K ) * AL P (J,L ) +RAT* (ALP (J>M)-ALP (J»L)) 
DALP (J»K) "D ALP ( J » L ) +RAT* ( DALP (J>M)-DALP (J»L)> 
DDALP(J>K)»DDALP(J>L) +R A T+ ( DD AL P < J> M ) -DD AL P ( J » L ) ) 
H( J> K ) *H1 ( J ) 

CP( J»K)«CP1(J> 

W(K)“W(K) + ALP(J»K) /WTMOLE(J) 
CPX(K)-CPX(K)+ALP(J>K)*CP(JfK) 

5 CONTINUE 
W(K)“1»/W(K) 

R ( K ) * RO/W ( K ) 

GAM(K)«CPX(K)/(CPX(K)-R(K)/CPIN) 

OR « 1 . /R ( K ) 

RHO(K)»P(K)*W(K)*GEW/T(K) 

EM(K) -Q(K )*EMINF*SORT(GAR/GAM(K)*OR/T(K) ) 
XMU(K)»ZMU(EM(K) ) 

2 CONTINUE 

I F ( (I/2)*2.EQ.I) GO TO 6 
J-IS(I) 

K* J + l 
GO TO 7 

6 J»IS(I) 

K-J-l 

7 IF(N*(Y( J)-Y(K) ).GT. .5+DY) GO TO 1 
I S IMN * IS ( I)-N 

IF(ISIMN.EQ.NPTS.OR.ISIMN.EQ.1)GO TO 1 
C********* SUBTRACT PT FROM FREE STREAM SIDE OF SHOCK 
775 L«K+1 


a; 


*** + 
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DO 8 K-L » NPTS 
J-K-l 

CALL SWITCH ( J»K ) 

8 CONTINUE 
NPTS-NPTS-1 
ISPP-1 

IF(JSUBL.GT.IS( I ) ) JSUBL-JSUBL-1 
IF ( JSUBU.GT.ISU > > JSUBU- JSUBU— 1 
DO 9 J»1#IDD 

IF ( ISU).GT.IS(I) ) IS(J)«IS(J)-1 

9 CONTINUE 

IF( ( I/2)*2.EQ.I> IS ( I ) -IS t I > — 1 
1 CONTINUE 

IF(ITYP.NE.l) GO TO 850 

IF(NPTS.LT.MMAX) GO TO 2121 

II11-1 

IPUNCH-1 

WRITE (6; 9191 ) 

9191 FORMAT ( 1H1 ) 

WRITE (6. 85 1 ) 

851 FORMAT ( 74H REQUESTED MAXIMUM NUMBER OF FLOW FIELD PTS. EXCEEDED# P 
1UNCH FILE OBTAINED /97H RESUBMIT RUN WITH REDUCED NUMBER OF FLOW FI 
1ELD PTS. OR INCREASE INPUT FOR MAXIMUM NUMBER OF PTS.) 

RETURN 
850 CONTINUE 

IF(Y(l).EQ.YBOT.OR.ITYP.EQ.<t) GO TO 2100 

IPRESS-1 

APRESS-P < 1 ) /PIN 

2100 IF(Y(NPTS).EQ.YTP.0R.ITYP.EQ.3) GO TO 2101 
IPRESU-1 

APRESU-P(NPTS»/PIN 

2101 CONTINUE 

IF(NPTS.LT.MMAX) GO TO 1000 
ISC-0 

DO 700 1*1# I DO 

700 IF ( IS(I).NE.O) ISC-ISC+1 

I F C ITYP.NE.2.0R.ISC.NE.0.0R. ISUB.NE.O. )G0 TO 701 
YQ- YTP 

IF <Y( NPTS ) .LE.YTP-2. +DELTAY) YQ«Y< NPTS) +DELTAY 

IK-1 

IX-1 

NP-NPTS 

IF < <NPTS/2)*2.NE.NPTS ) GO TO 702 
800 J-NPTS+1 
K-NPTS 

CALL SWITCH(J.K) 

Y ( J > - YQ 
NPTS-NPTS+1 

YFUN- (Y(J)*(XJ2+Y< J)*XJ)-Y(K)*(XJ2+Y(K)*XJ))/XJ1 
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RQAV«RHQ(K)+Q(K)+COS<TH(K) ) 

XMASS (J ) -XMASS (K)+RQAV*YFUN 
TH(NPTS) -0. 

APRESU*P(NPTS)/PIN 
GO TO (702,903), IX 

702 J«l 

DO 703 K» 3 , N P, 2 
J- J + l 

CALL SWITCH(J,K) 

703 CONTINUE 
DELTAY»DELTAY*2. 

IF ( IK ,EQ • 2 ) GO TO 704 

NPTS-NPTS/2+1 

GO TO 1000 

701 IF(ITYP.NE.3.0R.IS<3> . E Q . 0 . OR. I SU B . N E . 0 . OR . I S C . NE . 1 ) GO TO 303 
IK-2 

NP-ism-i 

I F ( (NP/2)*2.NE.NP) GO TO 702 
IQ-1 

IF(Y(l).GE.YB0T+2.*DELTAY+l.E-03) GO TO 706 

YT-YBOT 

GO TO 707 

706 YT«Y( D-DELTAY 

707 DO 708 KK«1,NPTS 
K-NPTS+l-KK 

J-K + l 

CALL SWITCH(J,K) 

708 CONTINUE 
NPTS-NPTS+1 

DO 709 I - 1 , IDD 

709 I F ( I S ( I ) « NE • 0 ) IS(I)-IS(I)+1 
IF(ISUB.EQ.O) GO TO 710 
JSUBL-JSUBL+1 
JSUBU-JSUBU+1 

710 Y ( 1 ) - YT 

YFUN«(Y(2)*(XJ2+Y(2)*XJ)-Y(1)*(XJ2+Y(1)*XJ))/XJ1 
RQAV-RH0(2)*Q(2)*C0S( TH(2) ) 

XMASS (1) -XMASS (2 )-RQAV*YFUN 
THll)-0. 

APRESS*P(1)/PIN 
GO TO ( 711,907) , IQ 

711 NP-NP+1 
GO TO 702 

704 ISN ( 3 )»NP /2 + 2 
ID- IS ( 3 ) -I SN ( 3 ) 

ISS-ISC3) 

IS ( 3 ) - ISN ( 3 ) 

DO 705 K-ISS,NPTS 
J-K-ID 
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CALL 5WI TCH ( J» K ) 

705 CONTINUE 

NPTS*NPTS-ID 
GO TO 1000 
303 ICT-ISC 
ITOP-NPTS 

IF(IS(3).NE.O) I TOP * I S < 3 ) -1 
IBOT-1 

IF ( I S ( 4 ) • NE • 0 ) 1 80T* I S ( 4 ) +1 
DTY* Y (ITOP)-Y(IBOT) 

OELTAY«OTY/FLOAT( ( MM A X- ( N P T S-ITOP ) -I S ( 4) ) /2-ICT) 

IB-IBOT 

ISN ( 1 ) « IS ( 1 ) 

ISN(2)«IS(2) 

ISN(3)«IS(3> 

I$N(4)*IS(4) 

4SUBLN* JSUBL 
J SUBUN* J SU BU 
IBB* IB 
IREG-1 

IF ( I S ( 2 ) • EQ. 0 ) GO TO 501 
IT*IS (2 ) 

GO TO 502 

501 IREG*2 

IF(ISUB.EQ.O) GO TO 504 
IF( JSUBL.EQ.l) GO TO 503 
IT- JSUBL 
GO TO 502 

503 CONTINUE 
IB-JSUBU 
IBB* IB 

504 IREG-4 

IF(ISd).EQ.O) GO TO 505 
I T* I S ( 1 ) — 1 
GO TO 502 

505 IREG-5 

I F < ISm.EQ.O) GO TO 506 
IT-IS (3)-l 
GO TO 502 

506 IT-NPTS 

502 MP- ( Y ( IT)-Y( IB) ) /DELTAY 
L* I B 

JZ-1 

OEL*(Y(IT)-Y(IB))/FLOAT(MP) 

5932 CONTINUE 
J-IBB 
K»IB 

X N ( J ) - X (K) 

Y N ( 4 ) * Y (K) 


APPENDIX A 


Q 

N ( J ) *Q 

(K) 

P 

N( J)-P 

(K) 

T 

N ( J ) ■ T 

(K) 

W 

N ( J ) * W 

(K) 

R 

N ( J ) * R 

(K> 

EM 

N ( J ) *EM 

(K) 

TH 

N ( J ) *TH 

(K) 

BG 

N ( J ) ■ BQ 

(K) 


D VI SN ( J ) *D VI S ( K ) 
VISNC J)-VIS(K) 


TAU 

N(J)*TAU 

(K) 

DBO 

N ( J ) «DBQ 

(K) 

GAM 

N ( J ) *G AM 

(K) 

RHO 

N ( J ) *RHQ 

(K) 

XMU 

N ( J ) * XMU 

(K) 

CPX 

N( J) »CPX 

(K) 


DC P XN < J ) « DC P X CK) 

DT AUN ( J ) *DTAU (K) 

XMASSN( J)-XMASS(K) 

D03106 J J* 1 * NS P 
H N ( J J > J )*H ( J J # K ) 

CP N ( J J * J ) *C P ( J J * K ) 

ALP N ( J J* J ) * ALP (JJ*K> 

DALPN ( J J # J ) *D ALP <JJ*K> 

DDALPN( JJ# J)*DDALP( J J* K) 

3108 CONTINUE 

GO TO (2201*2904), JZ 
2201 DO 600 KK« 1* HP 
I *KK+ I BB-1 
YN<I-H)«YN<I>+DEL 

602 IF(YN(I+1)«GE.Y(L).AND.YN(I+1).LT,Y(L+1) ) GO TO 601 
L-L + l 
GO TO 602 

601 RAT«< YN( I + 1)-Y(L) ) /( Y(L + 1)-Y(L) ) 

IFC IT.EQ. JSUBU) GO TO 1200 
PNtI*l)-P(L)+RAT*(P(L+l)-P (L) ) 

THN< I+1)«TH(L > + RAT*(TH(L+l >-TH(L ) ) 

GO TO 1201 

1200 CONTINUE 
YY-YNU + l) 

PN( I + 1)»AP0 , * , YY*(AP1+YY*AP2 ) 

THN< I+1>«0. 

1201 CONTINUE 
M-L + l 
K-I+l 


X 

NOO»X 

< L ) + RAT * ( X 

{ M ) — X 

( L) ) 

Y 

NCKI-Y 

( L ) +RA T * { Y 

(M)-Y 

(L)> 

Q 

N(K)«Q 

( L ) + RA T* ( Q 

<M)-Q 

(L) ) 

T 

N(K)«T 

( L ) +RAT* ( T 

(M )-T 

( L) ) 
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BQ NCK)-BQ (L)+RAT*(BQ (M)-BQ (U) 
VISN(K)»VIS(L )+RAT*( V IS ( M ) -V I S ( L ) ) 

DVISN(K)*DVIS (L )+RAT*(DVIS (M )-DVIS(L ) ) 

TAU N ( K ) -TAU ( L ) +RAT * ( TAU (M)-TAU (L)) 

DBQ N ( K ) - 0 BQ ( L ) + RA T*( DBQ (M)-DBQ (L)) 

DCPXN (K ) -DCPX ( L ) + RA T* ( DCP X (M)-DCPX (L>> 

DTAUN(K) -DTAU (L J+RAT *(DTAU (M)-DTAU CL)) 
XMASSN(K)«XMASS(L)+RAT*(XMASS(M)-XMASS(L > ) 
CPXN(K)»0. 

WN(K) -0. 

CALL THERMOl TN(K), HI, CPI) 

D05 5 J- 1, NSP 

ALP N(J,K)-ALP ( J , L ) +RAT* (ALP (J,M)-ALP (J,D) 
DALPNC J,K) -DALP C J > L ) +R AT* ( D AL P (J,M)-DALP (J,L)) 
DDALPNC J,K)-DDALP( J, L ) ♦ RAT* ( DO ALP ( J, M)-DDALP< J, L) ) 
HNCJ,K)«H1( J) 

CPN ( J, K ) -C PI ( J ) 

WN(K)*WN(K)+ALPN(J,K) /WTMOLEC J) 

CPXN (K)-CPXN (K)+ALPN ( J,K)*CPN( J , K ) 

55 CONTINUE 

WN(K)-1./WN(K) 

RN ( K ) -RQ /WN ( K ) 

GAMN(K)«CPXN(K>/ (CPXN(K)-RN(K) /CPIN) 

RK-1. /RN(K) 

RHQN(K>«PN(K)*WN<K)*GEW/TN(K) 

EMN(K )-QN(K)*EMINF*SQRT(GAR/GAMN(K )*RK/TN(K) ) 
IF(EMNCK) .GT.l. ) 

1XMUN(K)-ZMU( EMN(K> ) 

600 CONTINUE 

GO TO (2200,603,604,605,606), IREG 
2200 I SN ( 2 ) * 1 + 1 
IB-IS(2)+1 
IBB-ISN(2)+1 
GO TO 501 

603 JSUBLN-I+1 
IB- JSUBU 

JSUBUN-JSUBLN+JSUBU-JSUBL 

IBB-JSUBUN 

604 CONTINUE 
GO TO 504 

605 I S N ( 1 ) * I +2 
IB- I S ( 1 ) 

IBB-ISN(l) 

GO TO 505 

606 I F ( IS (3) .NE.O) I SN ( 3 ) - I +2 
IF( IS (3) .EQ.O) NPTS-I+1 
NP-NPTS 

IF( IS (3) .EQ.O) GO TO 2203 
ID-IS (3) — ISN( 3) 
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I SS • I S ( 3 ) 

DO 2304 K* I S S* NP TS 
J *K — I D 

CALL SWITCH(J,K) 

2304 CONTINUE 

NPT S * NPT S— 1 0 
NP-ISN(3>-1 

IF(ISUB.EQ.O) GO TO 2903 
JZ-2 

JZIQ- JSUBL-1 
JZ I * J SUBL N— 1 
2904 JZI-JZI+1 

JZIO- JZIO+1 

I F ( JZI.EQ# JSUBUN) GO TO 2903 
IBB-JZI 
IB- JZIO 
GO TO 5932 
2903 CONTINUE 
2203 DO 2204 I*IBOT,NP 
J-I 
K- I 


X 

( J) -XN 

(K) 

Y 

< J)«YN 

(K) 

Q 

( J )-QN 

(K) 

P 

( J) «P 

N < K ) 

T 

( J ) * T 

N ( K ) 

W 

( J ) - W 

NCK) 

R 

( J)-R 

N(K) 

EN 

( J)-EM 

N ( K ) 

TH 

( J ) -TH 

N ( K ) 


DVIS( J)-DVISN(K) 

VIS ( J)-VISN(K) 

BQ (J)-BQ N ( K ) 

TAU (J)-TAU N ( K ) 

D BQ (J)-DBQ N ( K ) 

GAN ( J ) * G AN N ( K ) 

RHO (J)-RHO N ( K ) 

XMU (J)-XNU N ( K ) 

CPX (J)-CPX N ( K ) 

DC P X (J)-DCPXN(K) 

DTAU ( J)-DTAUN(K) 

XMASS(J)-XNA$$N(K) 

D04108 JJ-lfNSP 
H NCJJ>K) 

CP <JJ,J)*CP N( JJ,K) 

ALP ( JJ# J)*ALP N ( J J * K) 

DALP ( JJ> J)*DALPN( JJ,K> 

DO ALP J )*0DALPN( J J,K> 
4108 CONTINUE 
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2 204 CONTINUE 

DO 607 1-1,4 
607 IS ( I ) -ISN ( I ) 

JSU8L* J5UBLN 
JSUBU- JSUBUN 
1000 CONTINUE 

IF (ITYP.EQ.3) GO TO 903 
IF(Y(NPTS).EQ.YTP) GO TO 903 
YQ- YTP 

IF ( Y { NPTS ) .LE. YTP-l. + DELTAY) YQ « Y( NPTS > -t-DELTAY 
IX-2 

L-NPTS-1 

M-L-l 

IF(ABS(PtM)-P(l)>/P(L)-.001) 900,900,800 

900 IF ( ABS(Q(M)-Q(L) )/Q(L)-.001> 901,901,800 

901 IF ( ABS(T( M)-T(L)) /T( L >-.001 ) 902,902,800 

902 IF(ABS(ALP(5»M)-ALPC5,L))-.001*ALP(5,L)> 903,903,800 

903 IF ( Y ( 1 ) . EQ . YBOT ) GO TO 907 
IF(ITYP.EQ.A) GO TO 907 
L-2 

M-3 

IQ-2 

IF(Y(l).GE.YB0T+DELTAY+l.E-03) GO TO 910 

YT-YBOT 

GO TO 912 

910 YT»Y(1)-DELTAY 

912 IF(A8S(P(M)-P(L) )/P(L)-.001) 904,904,707 

904 IFCABS(Q(M)-Q(L))/Q(L)-.001) 905,905,707 

905 I F ( ABS< T(M)-T(L) ) /T( L ) — .001) 906,906,707 

906 IF ( ABS( ALP( 4,M)-ALP( 4,U ) -. 001* ALP ( 4, L ) ) 907,907,707 

907 CONTINUE 

IF< ITYP.EQ.4 > GO TO 2102 

IF (Y(l).NE.YBOT) GO TO 2102 

I BOD - IBODS 

ABOD-ABODS 

IPRESS-IPRS 

APRESS-APRS 

2102 IF ( ITYP.EQ.3) GO TO 2103 

I F ( Y(NPTS).NE.YTP) GO TO 2103 

J BOD- J BODS 

EBOD-EBODS 

IPRESU- IPUS 

APRESU-APUS 

2103 CONTINUE 

IF< Y< 1) .EQ. YBOT. AND. ITYP.EQ.3) ITYP-1 
IF C Y(l) .EQ. YBOT. AND. ITYP.EQ.2) ITYP-4 
I F C Y<NPTS ) .EQ. YTP. AND. ITYP.EQ.4) ITYP-1 
IF (Y (NPTS ).EQ. YTP. AND. ITYP.EQ.2) ITYP-3 
2121 CONTINUE 
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IF(ISUB.EQ.l) RETURN 

JSUBL«NPTS+1 

JSUBU-NPTS+1 

RETURN 

END 

SUBROUTINE RSET 

COMMON /AL /GAR# GEM 

COMMON/ BA/ ALP (7# 55)#EMINF#WINF 

COMMON/BD/XMASS ( 55 ) 

COMMON/C J /CP ( 7#55)#CP1(7)#CPX(55) 

COMMON/DP/ YN ( 55 ) 

COMMON/ED/CPIN, RO 

COMMON/EF/EM (55 ) # G AM (55 ) # P (55)#TH(55)#Y<55> 

C0MM0N/EP/GAMINF#H1(7 >#RINF 

C0MM0N/HM/ALPN(7»55)#CPN(7#55)>CPXN(55)»EMN(55)>GAMN(55)>HN(7»55) 
IL#PN(55)#QN(55)#RHQN(55)#RN(55)»THN(55)#TN(55)#WN(55)»XMUN(55) 
COMMON /OR /TH BP# YBP# YBPN 
COMMON/PD/W( 55)# X( 55 ) 

COMMON/PQ/JCHEM#NSP#T (55) 

COMMON/QA/H< 7# 55 )» Q l 55 ) # RHO( 55 )» XMU( 55 ) 

COMMON/RC /R ( 55 ) 

C0MM0N/SQ/BQN<55)#DALPN(7#55)»DBQN(55)»DCPXN<55)»DDALPN(7#55)» 
1DTAUN(55)# TAUN( 55) 

COMMON/TS/DVIS(55)#DVISN(55)#DVISP(2)»VIS(55)»VISN(55)#VISP(2) 
COMMON/TU/BO( 55 )# DALP < 7# 55 )# DBQ(55 ) # DC PX < 5 5 ) » DO AL P < 7# 5 5 > » DTAU ( 5 5 ) 
1 T AU ( 5 5 ) 

COMMON /VW /I CON T# IEND# KT# THBPN# X BPN 
COMMON/WV/NPTS»RE# X8P#XJ 
DO 5110 I«1#NPTS 
TH ( I ) « THN ( I ) 

X { I > » XBPN 
Y ( I ) -YN( I) 

Q(I)-QN(I) 

P ( I ) «PN(I) 

T ( I)-TN(I) 

RHO(I)-RHONd) 

EM ( I ) * EMN ( I ) 

XMU(1 )-XMUNd ) 

VIS ( I )«VISN(I ) 

DVIS ( I )»DVISN (I ) 

TAUd )*T AUN ( I ) 

BQ(I)-BQN( I)' 

DCPX(I)*DCPXN(I) 

DT AU ( I ) *DT AUN ( I ) 

DBQd )-DBON(I ) 

DOA090J«1# NSP 

ALP ( J# I ) *ALPN( J# I) 

DALP ( J# I)-DALPN(J# I) 

DDALP ( J# I ) * DD ALPN { J # I) 


APPENDIX A 


CPU* I ) *CPN( J# I) 

H(J# I)*HN(J# I) 

4090 CONTINUE 

W(I)*WN(I) 

R ( I ) *RN ( I ) 

GAM ( I ) *G AMN ( I ) 

CPX ( I )*CPXN( I ) 

5110 CONTINUE 
XJ1-1.+XJ 

IF ( Y ( 1 ) • EQ • 0 # ) XMASS(1>»0. 

DO 10 1*2# NPTS 

YFUN* (Y( I ) *( l.-XJ+Y< I )*XJ)- Y(I-1)*(1.-XJ+Y(I-1)*XJ) ) /XJ1 
RQAV* (RHO( I )*Q( I )*COS (TH( I ) )+ RHO( 1-1 ) *Q ( l-l ) *C OS < TH ( 1-1 ) ) > /2. 
XMASS (I ) * XM A S $ ( 1-1 )+RQAV*YFUN 
10 CONTINUE 

DO 8409 I*1»NPTS 
CPX( I > - 0 . 

CALL THERM0(T(I)#H1#CP1> 

DO 8410 14*1# NSP 
CP(I4,I)*CP1(I4) 

H( 14# I)*H1 (14) 

8410 CPX(I)*CPX(I)+ALP(I4#I)*CP1(I4) 

RHO( I )»GEW*W( I )*P( I) /TCI) 

GAM ( I)*CPX(I)/(CPX(I)-R(I)/CPIN) 

RI-l./RCI) 

EM(I)»Q(I)*EMINF*SQRT(GAR/GAM(I)*RI/T(I) ) 

IF(EM(I).LT. 1.0001) GO TO 8409 
XMU ( I )*ZMU (EM (I ) ) 

8409 CONTINUE 
XBP*XBPN 
YBP*Y (NPTS ) 

THBP* TH( NPTS ) 

IF(YBPN.EQ.YNtNPTS)) RETURN 

YBP* YBPN 

THBP-THBPN 

RETURN 

END 

SUBROUTINE SHE AR 1 ( CF F » V I S D ) 

COMMON/AC/IBOD# PIN 
C0MM0N/BA/ALP(7» 55 )# EMINF# WINF 
COMMON/CJ/CP( 7 # 5 5 ) #CP1(7)#CPX( 55) 
C0MM0N/EF/EM(55)#GAM(55)#P(55)#TH(55)#Y(55) 

COMMON/PQ/ JCHEM#NSP# T (55 ) 

C0MM0N/QA/H(7#55 )# Q(55 )#RH0(55 )# XMU( 55 ) 

COMMON/ SQ/BQN< 55 ) # D AL PN < 7# 55 ) # DBQN < 5 5 ) # DC PXN ( 5 5 ) # DO ALPN ( 7# 55 > # 
1DTAUN(55)#TAUN(55) 

COMMON/TS/DVIS(55)#DVISN(55)»DVISP(2)# VIS(55)#VISN(55)»VISP(2) 
COMMON/TU/BQ(55)#DALP (7# 55 > # DBQ ( 55 ) # DC P X ( 5 5 ) # DO AL P ( 7# 5 5 ) # DT AU ( 5 5 ) » 
1 TAU ( 5 5 ) 
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COMMON /WV/NPTS,RE» XBP>XJ 
DIMENSION L OCS ( 8 ) 

KKI-0 

DO 100 K-1,8 
100 L0CS(K)»0 
LAST-NPTS 
LAST1-NPTS+1 
LAST2-NPTS-1 

Y CLAST1)«2.*Y ( LAST ) -Y { LAS T2 ) 

Q (LAST1)«Q ( LAST2 ) 

T (LASTl)-T (LAST2) 

VIS(LAST1)»VIS(LAST2) 

CPX (LASTl)-CPX (LAST2) 

P(LAST1)-P(LAST2) 

TH(LAST1)-TH(LAST2) 

TAU ( LAST ) *0. 

BQ ( L AST ) * 0 . 

DCPX ( L AS T ) * 0 . 

DO 6290 J»1,NSP 
DALP ( LAST ) »0» 

6290 ALP <J,LAST1)»ALP <J,LAST2> 

DO 6292 K«2» L AST 

DELY2-Y (K+l)-Y (K) 

DELY1-Y { K ) - Y ( K-l ) 

IF(DELY2.LT.1.E-06.0R.DELY1.LT.1.E-06) GO TO 1301 

SUM-DELY1+DELY2 

RATI01-DELY1/DELY2 

RATI02-DELY2/DELY1 

SU-l./SUM 

RMR-RATI01-RATI02 

TAU(K)-(Q(K*1)*RATI01-Q(K)*RMR-Q(K-1)+RATI02)*SU 

0D-1./DELY2 

DTAU(K)»2.*(Q(K+1) *DELY1*SU-Q(K)+Q(K-1 )*DELY2*SU) /DELY1+0D 
BQ(K )«(T(K+1)*RATI01-T(K)*RMR-T(K-1) *RATI02)*SU 
DBQ<K)»2.*<T(K + 1>«‘DELYH‘SU-T(K>+T(K-1>*0ELY2*SU) / DELY1 + 0D 
DCPX(K)«(CPX(K-H)*RATI01-CPX(K)*RMR-CPX(K-1)*RATI02) *SU 
DVIS(K)«( VIS<K+1)*RATI01-VIS(K)*(RATI01-RATI02)-VIS(K-1)*RATI02)/S 
1UM 

DO 6291 J«1,NSP 

DALP< J,K)«(ALP(J>K+1)*RATI01-ALP( J ,K >*RMR-ALP < J , K-l ) *R AT 1 02 > *S U 
DDALP( K)»2.+( ALP < K* 1 ) *DE L Yl+SU-A LP ( K ) +AL P ( J » K-l ) *D E L Y2* SU ) 
1/DELY1+0D 

6291 CONTINUE 
GO TO 6292 

1301 KKI ■KKI+1 

LOCS (KKI)*K 

6292 CONTINUE 
DVIS (l)-0. 

TAU (1)«0.0 


77 



APPENDIX A 


DY»Y(2)-Y( 1) 

IF t IB0D.EQ.1)TAU(1 ) -CFF*RE*RHO ( 1)*Q( 1 ) **2* . 5 / V I SD 
BQ (1)*0.0 
DCP X C 1 > *0 . 

DTAU ( 1 ) * ( Q (2)-Q ( I ) ) *2 • / ( Y (2)-Y (1>)**2 

IFdBOD.EQ.il 0TAU(1)-A.*(Q(2)-QC1> )/DY**2-2.*(TAU<l)+TAU<2) )/DY+ 
1DTAU ( 2 ) 

DBQ (1)*(T (2 l-T (1)1*2. / ( Y (21-Y (1))**2 

IF( IBOD.EQ. 1) DBQ( 1) - 4.* ( T (2 )-T ( 1 ) )/DY**2-2.*BQ(2 )/DY+DBQ(2) 
D06293 J-l, NS P 
DALP (J, 11-0.0 

DD ALP (J, 1)-2.*(ALP (J, 21-ALP (J, 1))/(Y (2)- 
1Y (111**2 

IF ( IBOD.EQ. 1) DDALPJ J»l)-A.*( ALPC J,2)-ALP( J.l) ) / D Y** 2-2 . *D AL P ( J , 2 
1 ) /D Y+DDALP ( J, 2 ) 

6293 CONTINUE 

DO 101 M-1,8 

IF(LOCS(M),EQ.O) GO TO 102 
K-LOCS(M) 

L- 1 

IF( (M/2) *2. NE. Ml L— 1 
YNK-Y (K )— Y (K + L) 

BQ ( K ) -2 • * ( T ( K ) — T ( K+L ) ) /YNK-BQ (K+L) 

TAU (K)-2.*(Q ( K ) — Q ( K + L ) ) / YNK-TAU (K + L) 

DCPX (K)-2.*(CPX ( K) — CP X ( K + L ) ) / YNK-DC PX (K + L) 

DTAU (K)-2.*( TAU (K)-TAU (K+L) )/YNK— DTAU (K+L) 

DBQ (K)-2.*(BQ (K)-BQ ( K+L ) ) / YNK-D BQ (K+L) 

DO 103 J-l.NSP 

DALP (J,K)»2.*( ALP (J.K)-ALP ( J, K+L ) ) / YNK-DALP (J.K+L) 

103 DD ALP ( J,K)-2.*(DALP (J.K)-DALP ( J , K +L ) ) / YNK-DOAL P (J.K+L) 

101 CONTINUE 

102 CONTINUE 

DO 7000 1-1. LAST 
T AUN ( D-TAUII ) 

BQN(I)«BQ(I) 

DCPXN(I)»DCPX(I) 

DTAUN(I)-DTAUII) 

DBQN ( 1 ) -DBQ ( I ) 

DO 7001 J-l.NSP 
DAL PN ( J. I ) » D ALP ( J. I) 

7001 DDALPNIJ, I )-DDALP( J. I ) 

7000 CONTINUE 
NPTS-LAS T 
RETURN 
END 

SUBROUTINE SHEAR2 ( CFF, VISD ) 

COMMON/AC/I BOD. PIN 
COMMON/DP/YN(55) 

COMMON/HM/ALPN( 7,55) .CPN( 7.55) .CPXN( 55 ) , EMN ( 5 5 ) , G AMN ( 5 5 ) » HN ( 7, 5 5 ) » 
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ILS>PN(55)>QN(55)>RH0N(55)>RN(55)>THN(55),TN(55)*WN(55)>XMUN(55) 
COMMON/ PQ/J CHEM> NSP> T( 55) 

COMMON /SQ/ BON (55 )» DALPN(7>55 ) > OBQN ( 5 5 ) * DCP XN ( 5 5 )» DO ALPN ( 7 » 55 ) * 
1DTAUN<55) , TAUN( 55) 

CQMMON/TS/DVIS(55) »DVISN(55 ) » D VI S P (2 ) * VIS(55)»VISN(55)>VISP(2) 
CQMMON/WV/NPTS#RE» XBP>XJ 
DIMENSION LOC S ( 8 ) 

KKI-0 

DO 100 K-1,8 
100 LOC S ( K ) * 0 
LAST «NPTS 
LAST1-NPTS+1 
LAST2-NPTS-1 

YN(LAST1)«2.*YN(LAST)-YN(LAST2 ) 

QN(LAST1)»0N(LAST2) 

TN(LAST1)«TN(LAST2) 

VISN(LAST1)»VISN(LAST2) 

CPXN(LAST1)»CPXN(LAST2) 

PN(LAST1)»PN(LAST2> 

THN(LAST1)»THN(LAST2> 

TAUN(LAST) »0. 

BQN ( L AS T ) > 0 • 

DCPXN(LAST) «0. 

DO 3001 J-1#NSP 
DAL PN ( J> L AS T ) »0. 

3001 ALPN(J>LAST1)*ALPN(J*LAST2) 

DO 6002 K»2» L AST 
DELY2-YN(K+1)-YN(K) 

DELY1»YN(K)-YN(K-1 ) 

IF(DELY2.LT.l.E-06.0R.DELYl.LT.l.E-06) GO TO 1301 

SUM-DELY1+DEL Y2 

RATI01-DELY1 /DEL Y2 

RATI02-DELY2/DELY1 

SU-l./SUM 

0D» 1 • /DEL Y2 

RMR*RATI01-RATI02 

TAUN(K)»(QN(K+1)*RATI01-QN(K)*RMR-QN(K-1)*RAT102)+SU 
DTAUN(K)»2.*(QN(K+1) * DE L Y1 *S U-QN ( K ) +QN ( K-l ) *D EL Y2 * SU ) /DELY1+0D 
BQN(K)*(TN(K+1)+RATI01— TN(K)*RMR-TN(K— 1)+RATI02)*SU 
DBQN(K)«2. + ( TN(K + 1 ) * 0 EL Y 1 * SU-TN ( K ) +TN ( K-l ) * DE L Y2* S U ) /DEL Y1*0D 
DCPXN(K)- (CPXN(K*1)*RATI01-CPXN(K)*RMR-CPXN(K-1)*RAT102)*SU 
DVISN(K)« ( VI$N(K+1 ) * R AT 10 1-V I SN ( K )*( R AT I01-R AT 1 02 > - VI SN ( K-l ) * R AT 10 
12 ) / SUM 

DO 4081 J * 1* N S P 

DALPN( J>K) *( ALPN( K+ 1 ) *R A T I 01-AL P N ( J> K) *RMR-ALPN ( J, K-1)*RATI02) 
1*SU 

DDALPN (J»K ) » 2 •* (ALPN ( J » K* 1 ) *DE L Y 1*SU-AL PN ( J> K ) ♦ AL PN ( J» K- 1 ) *OEL Y2 
1*SU) /DELY1+0D 
4081 CONTINUE 
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GO TO 6002 
1301 KKI-KKI+1 

LQC S ( KKI ) *K 
6002 CONTINUE 

TAUN(1)»0.0 
D Y* YN ( 2 ) — YN ( 1 ) 

IF ( IBOD.EQ.l )TAUN( 1) *CFF*RE*RHON ( 1)*QN{ 1 ) **2*. 5 /VISD 

BQN ( 1 )»0 • 0 

DVISN(1)«0.0 

DCPXN(1)«0. 

0TAUN(1)-(QN(2)-QN(1) ) *2 . / ( YN ( 2 )-YN { 1 ) 1**2 

IF (IBOD.EQ.l) DTAUN( 1 ) » 4.* ( QN ( 2 )-QN ( 1) ) /D Y++2-2 .* ( TAUN ( 1 ) + TAUN ( 2 ) 
1 ) /DY+DTAUN ( 2 ) 

DBQN(1)»(TN(2)-TN(1) )*2 . / ( YN (2 )-YN ( 1 ) )**2 

1F( IBOD.EQ.l) DBQN ( 1 ) *4 . * ( TN ( 2 ) -TN ( 1 ) ) /DY**2-2.*BQN( 2) /DY+DBQN ( 2 ) 
D04082J-1, NS P 
DALPNU, 1)«0.0 

DDALPNtJ, 1)*2.*(ALPN(J. 2>-ALPN(J, 1))/(YN<2>- 
1YN(1) ) **2 

IF (IBOD.EQ.l) DDALPN ( J> 1)*4,*{ ALPN ( J>2 )-ALPN ( 1) ) /DY**2-2.*DALPN 
1(J»2)/DY+DDALPN(J*2) 

4082 CONTINUE 

DO 101 M ■ 1 » 8 

IF ( LOCS ( M ) . EQ . 0 ) GO TO 102 
K»LOCS(M) 

L“ 1 

IF< <M/2)*2.NE,M> L«-l 
YNK«YN(K)-YN(K+L) 

BQN(K>*2.+( TN (K)-TN( K+L ) ) / YNK-BQ N (K+L ) 

TAUN(K)»2.*(QN(K)-QN( K + L) ) /YNK-TAUN( K+L > 

DCPXN(K)«2.*(CPXN( K)-CPXN(K+L) ) /YNK-DCPXN(K+L ) 

DTAUN (K ) *2 •*( TAUN(K) -TAUN (K+L ) ) / YNK-DT AUN ( K+L ) 

DBQN(K)«2. *<8QN(K)-BQN(K+L ) ) / YNK-DBQN ( K+L ) 

DO 103 J*l> NSP 

DALPNU,K)*2.*(ALPN( J,K)-ALPN< J,K + L> ) / YNK-DAL PN ( J » K + L ) 

103 DDALPNt J,K)«2.*(DALPN( J,K)-DALPN( J.K+L) ) /YNK-DDALPN ( J» K+L > 

101 CONTINUE 

102 CONTINUE 
NPTS-LAST 
RETURN 
END 

SUBROUTINE LPOINT ( I. OPTP) 

COMMON/AB/EPP.EPQ. EPT 

COMMON/AC /IBOD# PIN 

COMMON/AL /GAR# GE W 

COMMON/ BA/ ALP (7, 55 )t EMI NF,W INF 

C0MM0N/BB/S1B/S2B. S3BT 

COMMON/BO/GAMB. PB» QB.RHOB. THB. WB» XMUB. YB 
COMMON/C A/ WDOTN( 7, 56).XN(55) 
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COMMON /CJ /CP(7, 55),CP1(7),CPX(55) 

COMMON/CK/WTMOLE (7) 

C0MM0N/DP/YN(55) 

COMMON/ED/CPIN,RO 

COMMON/EF/EM(55),GAM(55),P(55),TH(55),Y(55) 

CQMMON/EG/E1N, PR, XLE 
COMMON/E P/GAM INF, HI ( 7 ),RINF 
COMMON/FE/DEL 

COMMON /GF / DE L Y, I FS,KO UNTO, MMM 

COMMON/GK/DELX 

COMMON/HL/ ALPHA, BETA 

COMMON/HM/ALPN ( 7, 55 ) , CPN (7,55),CPXN(55 ), EMN ( 5 5 ) , G AMN ( 5 5 ) , HN ( 7, 5 5 ) , 
ILS,PN(55),QN(55),RHON(55),RN(55),THN(55),TN<55),WN(55),XMUN(55) 
COMMON/HN/CHC (2),CPB( 7 ) , C PX P ( 2 ) , D ALO I F ( 7 ) , 0 ALP B ( 7 ) , OD AL PB ( 7 ) , DE L S, 
AEMP (2 ),HB(7),HC(7),RP(2),S3A(7)»S3B(7),S3D(7),WD0TB(7),XP(2) 
COMMQN/QP/ALPB( 7) , PHI (55) 

COMMON/PD/W( 55 ), X( 55 ) 

COMMON/PQ/JCHEM»NSP, T (55) 

C0MM0N/QA/H(7,55),Q(55),RH0(55)»XMU(55) 

COMMON/QS /RHOP ( 2 ) , WO 0 T ( 7, 5 5 ) , WDOTC ( 7 ) , WP ( 2 ) , XMUP ( 2 ) 

COMMON /SQ/BQN (55)»DALPN<7, 55>,D8QN(55),DCPXN(55),DDALPN(7,55)» 

1 OT AUN ( 5 5 ) , TAUN ( 55 ) 

COMMON /S S /AL1, AL2,BQ1,BQ2»C1»C2,CH1,CH2,0B1,DB2,0D1> DD2, DTI, DT2,DV 
Al, D V2 > PX1, PX2, TA1, TA2, TH1, TH2, VI, V2, Yl, Y2 
COMMON/TS/DVIS ( 55 ) »DVISN (55 ), DVISP (2 ),VIS(55),VISN(55),VISP(2) 
CQMMQN/TU/BQ (55 ) , D AL P ( 7, 5 5 ) , DBQ ( 5 5 ) , DC P X ( 5 5 ) , DO AL P ( 7, 55 ) , DTAU( 55 ), 
1TAU( 55) 

C0MM0N/TV/ALPP(7,2),8ET,BQP(2),DACHP(7,2),DALPP(7,2),DBQP(2), 
1DCPXP(2),DDALPP( 7, 2) , OTAUP (2 ),DTCHP( 2),GAMP(2 ), PP (2 ) , QP ( 2), 

2TAUP (2 ), THP (2 ), TP (2 ) , YP (2) 

COMMON /UV/ II 11, I ERR, I PRESS, I PR ESU, IS UB 
C0MM0N/VT/DACH(7,55), DTCH( 55) 

COMMON/WV/NPTS,RE,XBP,XJ 
DIMENSION DACHB( 7) 

KPRESS*0 
L x I 
K«I+1 

IF(OPTP.EQ.O. ) GO TO 2000 
K» 1-1 

I F ( IFS.NE.2 ) GO TO 8500 

IF ( (MMM/2 )*2.NE.MMM) GO TO 8500 

K-I + l 

EM1R»XM2( ALPHA, BETA, TH( I ),XMU(I ),THN(I ),XMUN(I )) 

EM1L-XM2( ALPHA, BETA, TH(K ),XMU(K ),THN(I ),XMUN(I )) 

GO TD 6501 

8500 CONTINUE 

EM1R-XMK ALPHA, BETA, TH ( I ) , XMU ( I ) , THN ( I ) , XMUN ( I) ) 

EM1L«XM1( ALPHA, BETA, T H ( K ) , XMU ( K ) , THN ( I ) , XMUN ( I ) ) 

8501 CONTINUE 
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2000 CONTINUE 

YB*( Y(K)+Y( I) ) /2. 

KIP4*0 

8372 CONTINUE 

RATG* ( YB-Y (I) ) / ( Y ( K )-Y ( I ) ) 

THB*THCI)+RATG*ITH(K)-TH(I) ) 

XMUB=XMU(I ) +RATG*( XMU(K)-XMUU ) ) 

EM2»XM2< ALPHA, BETA, THB, XMUB, THN ( I ) , XMUN ( I ) ) 

IF{ OP TP » N£ .0 # ) £M2»EM1L+RATG*<EM1 R-EM1L ) 

YBT-YB 
X & * X 6 P 

YB*YNlI)-EM2+0ELX 
TESTYMYB-YBT) / (YIK)-Y(I)) 

IF( ABS(TESTY) .LT.0.01 ) GO TO 8371 
KIPA*KIPA+1 

IF(KIP^.LE.20) GO TO 8372 
WRITE! 6# 9191) 

9191 FORMAT ( 1H1 ) 

WRI TE ( 6> 2020 ) 

2020 FORMAT ( 56H UNABLE TO LOCATE Y LOCATION OF CHARACTERISTIC IN LPOINT 
1) 

STOP 

8371 RATG*( YB-Y( I) ) /( Y(K)-Y( I) ) 

51 THB»THU)+RATG*(TH(K)-TH(I>) 

QB-Q( I)+RATG+(0(K)-Q( I) ) 

PB*P(I)+RATGMP(K)-P( I) ) 

TT«T( I)+RATG*(T(K)-T( I) ) 

TAUB«TAU(I )+RATG*(TAU(K)-TAU(I ) ) 

BQB»BQ(I)*RATGMBQ(K)-BQm ) 

VISB*VIS(I)+RATG*( VI S ( K >-VI S ( I ) > 

OVISB»OVIS(I)+RATG*(OVIS(K )-DVIS(I) ) 
OCPXB«DCPX(I)+RATG*(OCPX(K)-OCPXCI) ) 
OTAUB*OTAU(I)+RATG*(OTAU<K)-OTAU(I ) ) 
OBQB«OBQ(I)+RATG*(OBQ(K)-OBQ(I)) 
DTCHP(1)-0TCH(I)+RATG*(DTCH(K)-DTCH( I) ) 

0TCHB-(DTCHP(1)+DTCH( I) )*.5 

CPXB-0.0 

WB-0.0 

CH2 D* 0. 

CH2B-0.0 

CALL THERM0(TT,H8,CPB) 

DQA 060 J * 1 * NS P 

ALPS ( J ) * AL P ( I)+RATG*< ALP< J, K)-ALP(J, I ) ) 

OALPB! J)«DALP< J,I)+RATG*(DALP( J»K)-DALP(J* I) ) 

DDALPB(J)»DDALP(J> I) +RATG* ( DO ALP ! J » K )-00 ALP ( J , I ) ) 

CH2D«CH2D+DALP ( J# I)*CP(J> I) 

CH2B«CH2B+DALPB( J)*CPB( J) 

CPXB*CPXB*ALPB( J)*CPBIJ) 

WB«WB + ALPB( J) /WTMOLE! J) 
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WDOTB(J)*WDOTlJ» I ) +R A TG+C WDOT ( K )- WDOT ( J > I) ) 
DACHH-DACHC J, I ) +RA TG * ( D ACH ( J,K)-DACHC J,I) ) 
DACHB(J)»(DACHH+DACH( I) )*.5 
DACHP(J»1)*DACHH 
4060 CONTINUE 
WB-l./WB 
RB-RO/WB 

GAMB-CPXB/ (CPXB-RB/CPIN) 

OR-l./RB 

RHOB* PB*WB*GEW/TT 

EMB-QB*EMINF*SQRT(GAR/GAMB*OR/TT) 

XMUB-ZMUC EMB ) 

IF(OEL.EQ.O. ) GO TO 8392 
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TAU 

B 

0 BQ 

P(l) 
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00 

3939 

J 

- 1* NSP 
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P ( J 

f 

1 ) - 

ALP 

DALP P(J 

9 

1 )- 

DALP 


B(J) 


3939 DDALPP(J»1)*DDALPB(J) 
8392 CONTINUE 

IF (BETA.NE.0.0)G0T04070 
TAUN(I)-TAUd) 
BON(I)-BQ(I) 
DCPXNCI)«DCPX(I) 

DTAUNd ) -DTAUd ) 
VISN(I)»VIS(I) 
DVISNd)-DVIS(I) 
TN(I)»T(I)+DTCH(I) 

WN d ) *W ( I ) 

DBQN ( I ) * D BQ ( I) 
CPXNCD-CPXCI > 
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CH2C-CH2D 

D04071J* It NS P 

DALPN ( J» L ) a DALP ( J > I ) 

DDALPNU, L ) *DD ALP ( J» I ) 

HC ( J )»H( I ) 
WDOTC(J)*WDQTN(J»I ) 

4071 CONTINUE 

4070 CONTINUE 

IF(BETA.EQ.O.O) GO TO 4072 
CH2C-0.0 
00 4073 J«1*NSP 
HC< J)«HN( J,I) 
WDQTC(J)*WDOTN(J> I) 

40 73 CH2C»CH2C + DALPN( J, I)*CPN( J, I ) 

4072 CONTINUE 
V1«VISB 
V2* VI SN ( I ) 

DV1-0VISB 
0V2»DVISN( I) 

TA1-TAUB 
TA2-TAUN (I ) 

DT1-DTAUB 
DT2*DTAUN( I) 

BQ1* BQB 
BQ2»BQN< I ) 

Yl« YB 
Y2-YN(I) 

TH1 » THB 
TH2«THN( I ) 

S1B-SK XJ,Rc ) 

Cl “CPXB 
C2-CPXN( I) 

DB1-DB0B 
DB2*DBQN( I ) 

PX1-DCPXB 
PX2-DCPXNI I ) 

CHI *CH2B 
CH2-CH2C 

IF(OEL.EQ.O. ) 1 » 2 
1 S2B-S2 ( XJ, RE ) 

Vl-VIS(I) 

0 Vl-D VIS ( I ) 

TA1»TAU( I) 

0T1*DTAU( I) 

BQ1* BQ ( I ) 

Y1«Y( I) 

THl-TH(I) 

S1D*S1(XJ,RE> 

GO TO 56 
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2 S2B*S2(XJ,RE ) 

56 I F t DEl.EQ.O. ) 3,4 

3 V1*VIS(I> 

DV1*DVIS ( I ) 

Cl-CPX(I) 

BQ1*BQ< I ) 

DB1*D8Q( I) 

TA1*TAU(I ) 

TH1 »TH( I ) 

Y1«Y( I) 

PX1*0CPX(I> 

CH1*CH2D 
S2D* S2 ( X J> RE ) 

4 S3BT-0. 

S3DT-0.0 
004075 J*l> NS P 
AL1 *D ALPB ( J ) 

AL2*DALPN ( J> L ) 

DD1* DDALPB ( J ) 

DD2-DDALPNC J*L) 

VI * VI SB 
DV1-DVISB 
901-BQB 
TH1-THB 

Y1*YB 

S 3 8 ( J )*S3(XJ>RE) 

IF(DEL.EQ.O.)5>8 

5 VI - V I S ( I ) 

DV1*DVIS ( I ) 

AL 1*0 ALP ( J > I ) 

DD1»00ALP< J, I ) 

BQ1-BQ( I ) 

TH1 * TH ( I ) 

Y1«Y< I) 

S3D(J)*S3(XJ;RE) 

S30T*S3DT+S3D(J)/WTM0LE(J) 

8 S3BT*S3BT+S3B(J) /WTMOLE(J) 

4075 CONTINUE 

IF ( DEL.NE.O. ) RETURN 
B1 * F 1 ( I ) 

115*0 

YAX* YB* YN ( I ) 

IF ( YAX.LT.1.E-06.AND.XJ.NE.0. ) 115*1 
XX-XJ 

IF ( 115. EQ. 1)60*61 

60 XJ-O. 

61 B2*F2 (I» S1B» S28> S3BT) 

XJ«XX 

IF( JCHEM.EQ.l) 60 TO 7254 
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B3-0. 

GO TO 7257 

7254 TPl-(T(I)+DTCH(I)+TT)/2. 

B3- F3 ( TP 1* DTCHB# TT> TN ( I ) t THB# THN ( I )> DACHB# WB> UN ( I ) ) 

7257 OPT T ■ 1 • 

IF ( OP TP. NE • 0 « ) OPTT--1. 

B4«F4(BETA>-0PTT*XMUB,THB,XMUN(I)jTHN(I) ) 

82- ( 82+83 ) *B4 

IF(OPTP.NE.O..AND. IPRES U.EQ.O) GO TO 7444 
IF(OPTP.NE.O..AND.IPRES U.EQ.l) GO TO 7482 
IF ( I BOD# EQ • 1 ) GO TO 7444 
IF(IPRESS.EQ.l) GO TO 7482 
AX-1. 

IF( I15.EQ.0) GO TO 100 
AX«XJ*S1N(XMUB)/SIN(THB— XMUB) 

IF ( BETA. GT. 0.0) AX- (AX+XJ*SIN <XMUN( I ) ) 

1/SIN (THNCI)-XMUN(I)) )*.5 
AX-1. -AX 
100 CONTINUE 

PN( I )-PB-( THB*AX+B2* ( XN ( I )-XB ) ) / B 1 
GO TO 7445 
7482 CONTINUE 

KPRESS-KPRESS+1 
IF(KPRESS.LT.6) GO TO 3232 
I ERR- 7482 

WRITE <6, 3131) I6RR» I» THN< I ), PN (I )> YN ( I )> THB» PB, YB 
3131 F0RMAT(2I5,6E13.5) 

STOP 

3232 THDUM- THN ( I ) 

KIP4-0 

THN( I )»THB+0PTT*B1*( P N ( I ) -PB ) +0P TT *82* ( XN ( I ) -X B ) 

IF( ABS(THN( D-THDUM) .GT.l.E-04) GO TO 8372 
YN ( I ) - Y ( I) +.5* (TAN (TH (I ) ) + TAN ( THN ( I ) ) ) *OEL X 
GO TO 7445 

7444 P N ( I )-PB+OPTT*(THN(I)-THB) / B1-B2 / B 1* ( XN( I ) -XB ) 

7445 CONTINUE 

IF(ABS(PN(L)-P(L)).LE.EPP) PN<L)»P (L ) 
0ELS«2.*(XN(I)-X(I))/(C0S(TH(I) ) + COS (THN ( I ) ) ) 

TERM2-RH0( I ) * Q < I ) 

IF(BETA.GT.O.O) TERM2- ( TERM2 +RHON ( I) 

1*QN( I))*. 5 
OT-1. /TERM2 

ON ( I ) -(S1D+DELS— PN(I ) +P ( I ) ) *3 T+Q ( I ) 

I F ( A BS ( QN( L ) — Q ( L ) ) .LE.EPO) QN( L)-Q(L) 

IF ( BETA. EQ. 0.0 )CPXN( I ) «C P X ( I ) 

OTCHEM-DTCH( I ) + ( PNC I ) -P < I > ) * < ON ( I ) +Q ( I ) ) / ( C P X ( I ) +C P XN < I ) )*EIN*OT 
0TDIFF»S20*0ELS*EIN*2./(CPX(I)+CPXN( I) )*0T 
TN ( I ) «T ( I) +DTCHEM+DTDIFF 
IF(ABS(TN(L)-T(L)) .LE.EPT) T N( L ) * T ( L ) 
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CPXN<I>»0.0 

WN(I)«0.0 

CALL THERM0(TN(I),H1,CP1) 

DO'tOBOJ*!# NS P 

DALDIFC J)*S3D( J ) *D EL S /TERM2 

ALPNCJd )«ALP< J> I) +DALDIF(J)+QACH(J> I) 

HNCJ, I) *H1( J) 

CPN ( J# I ) *C PI ( J ) 

idN( I ) *WN ( I ) +ALPN ( J * I ) /WTMOLEC J ) 

CPXNC I)*CPXN< I)+ALPN( J, I)*CPN(J, I) 

A080 CONTINUE 

WN ( I J-l./WNCI) 

RNC I ) *RO/WN( I ) 

GAMNC I)*CPXN( I )/ CCPXN(I)-RN< I) /CP IN) 

OR* 1 • /RN ( 1 ) 

RHON(I)»PN(I)*WN(I ) *G EW / TN < I ) 

EMNCI >*QN( I) *E MI NF+SQRTC GAR/ GAMNC I)*OR/TN( I) ) 
XMUNC I)«ZMU(EMN< I) ) 

RETURN 

END 

FUNCTION DERY(X1»X2*X3) 

CQMM0N/QR/DEL1*DEL2*RAT1>RAT2>SUM 

DERY* ( X1+RAT1-X2+C RAT1-RAT2 ) -X3+RAT2 ) /SUM 

RETURN 

END 

SUBROUTINE THSSS(THSS) 

COMMON/AX/JSUBL.»JSUBU 

COMMON/EF/EM( 5 5 ) ,GAM< 55 )>P(55)»TH(55)>Y(55) 

C0MMGN/QR/DEL1>DEL2>RAT1»RAT2>SUM 

COMMON/RS/GPMS, PS» THS * THSL# THSU 

JSUBP-JSUBU+1 

JSUBM-JSUBU-1 

CALL SHEARC JSUBP, ASH1 ) 

CALL SHEAR (JSUBU, ASH2 ) 

CALL SHEAR(JSUBM»ASH3) 

E MS *0 • 

DEL2«Y( JSUBP)-Y( JSUBU) 

DEL1*Y( JSUBU)-Y ( JSUBM ) 

SUM»DEL2+DELI 
RAT1-DEL1/DEL2 
RAT 2*DEL2/DEL1 
AY*DERY( ASH1, ASH2, ASH 3) 

COSTH-COS ( TH( JSUBU)) 

TERM1*-AY*C0STH 

EMY -D ERY( EMC JSUBP), EM (JSUBU),EM( JSUBM)) 
TANTH*TAN( THC JSUBU) ) 

EMNN*EMY/COSTH— EMS+TANTH 

GPM-GAMC J SUBU)*P (JSUBU) *EM( JSUBU >**2 

TERM2-2.*C0STH*EM( JSUBU )*EMNN*PS 



APPENDIX A 


GPMY»DERY(GAM( JSU8P)*P( JSUBP)+EM( J SU BP > ** 2 » GPM> G AM ( J SUBM >*P( JSUBM) 
1*EM ( J SUBM ) **Z ) 

GPMN*GPMY/COSTH-GPMS*TANTH 

THY-DERY( TH{ JSUBP ) > TH(JSUBU)# TH ( JSUBM ) ) 

THNN»THY/COSTH— THS*TANTH 
TERM3»GPMN*C0STH*THNN 

TERM4"-GPMS*C0STH*C0STH*(EM< JSUBU) **2-1. )*THS 
THSY«t)ERY(THSU,THS,THSL> 

TERM5*GPM*SIN(TH< JSUBU) )*THSY 

THYP*DERY( TH( JSUBP+1 ) > TH ( J SUBP ) > TH ( J SUBU ) ) 

THYL=DERY(TH( JSUBU )>TH< JSUBM )>TH< JSU BM-1) ) 
THNNP*THYP/COSTH-THSU*TANTH 
THNNL«THYL/COSTH-THSL*TANTH 
THNY*DERY ( THNNP, THNN, THNNL ) 

TERM6»-GPM*C0STH*THNY 

D«GPM*(EM( JSUBU) **2*C OS TH*COS TH-1 . ) 

XNUM-TERM1+TERM2+TERM3+TERM4+TERM5+TERM6 

THSS-XNUM/D 

RETURN 

END 

FUNCTION ZMU(EM) 

ZMU-ATAN (1.0 /SORT ( EM*EM-1.0> ) 

RETURN 

END 

SUBROUTINE THERMO( TI> H» CB ) 

COMMON/ED/CPIN>RO 
C0MM0N/HK/RC02,RH2 0> WFUEL 
COMMON/TW/TIN 
DIMENSION WTMOLE ( 9 > 

DIMENSION H ( 7 ) > C B ( 7 ) 

DIMENSION Q(9)>AP<9) 

WTMOLE<1)»1.008 
WTMOLE ( 2 ) * 16 . 0 
WTM0LE(3)»18.016 
WTMOLE ( A ) * 2 » 01 6 
WTMOLE ( 5 ) =32 • 0 
WTM0LE(6)*17.O08 
WTMOLE ( 7 ) * 28 . 01A 
WTM0LE<8)*^.011 
WTM0LE(9) -WFUEL 
T»TI*TIN 
C1*R0/CPIN 
C2-C1/TIN 
DO 10 J«l>9 
H1*C2 /WTMOLE ( J ) 

H2*C1 /WTMOLE ( J ) 

CALL COEFF ( J# T> A> B»C> D> E»F»G) 

Q (J )-T* ( A + T* (B*.5+T* (C/3. + T* ( D*.25+E*.2*T) > >) + F 
Q(J)«Q(J)*H1 
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AP<J)»A+T*(B+T+(C+T*(D+E*T) ) ) 

AP ( J ) * A P ( J ) * H2 
10 CONTINUE 
H ( 1 ) * Q ( 1 ) 

H<2 ) *0(2 ) 

H<3)»RH20*Q(3)+RCG2*Q(8> 

H(4) «Q(4) 

H ( 5 ) * Q < 5 ) 

H ( 6 ) * Q ( 6 ) 

H ( 7 ) * Q ( 7 ) 

CB ( 1 ) * AP ( 1 ) 

C B ( 2 ) * AP ( 2 ) 

CB(3)»RH20+AP(3)+RC02*AP(8> 

CB(4)*APC4) 

C B ( 5 ) * AP ( 5 ) 

C B ( 6 ) * AP ( 6 ) 

C B < 7 ) * AP ( 7 ) 

RETURN 

END 

SUBROUTINE T B L ( T X , TE M P Y , X , Y, N ) 

DIMENSION X(1),Y<1> 

DO 10 J 5 * 1 , N 

IF ( T X-X ( J 5 ) ) 8, 9, 10 

8 J 6 * J 5 — 1 

TEMPY»Y(J6) + (YU5)-Y(J6))*(TX-X<J6))/(X(J5)-X(J6)) 
GO TO 11 

9 TEMPY-YCJ5) 

GO TO 11 

10 CONTINUE 

11 RETURN 
END 

FUNCTION XM1( ALPHA, BE TA, TA,XA,TC,XC) 

XM1*ALPHA*TAN{ TA+XA) 

IF( BETA#GT«0* ) X M 1* XM 1+8 E T A * T AN < TC+XC ) 

RETURN 

END 

FUNCTION XM2 ( AL , B , T A , XA,TC,XC) 

XM2 * A L* T A N ( TA-XA) 

IF(B*GT«0«) XM2«XM2+B*TAN< TC-XC ) 

RETURN 

END 

FUNCTION XM3< A, B, TD, TC) 

XM3 * A* T AN ( TD) 

IF ( B%GT.0*0)XM3»XM3+B*TAN(TC ) 

RETURN 

END 

SUBROUTINE HQCUS(TI, PI, U1,RH01, ALPHA, DX,L) 
COMMON/AC /IBQD, PIN 
COMMON/BC /IQCHEM 
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CQMM0N/CA/WDQTN(7»55 ),XN(55) 

COMMON/GE/RAD, ROQ.UIN# VIS INF 
C0MM0N/HI/DALCH(7)»DTCHEM 
COMMON /PO/ ALPHN (7), I FUEL, PRES 

CQMM0N/QS/RH0P(2), WDO T( 7, 5 5 ) , WDOTC ( 7 ) , WP(2)» XMUP<2) 
COMMON/TW/TIN 

DIMENSION ASAVE(7)»WTM0LE(7),ALPHA(7) 

WTHOLE ( 1 ) * 1 • 008 
WTMOL E (2 ) -16 • 

WTM0LE(3)*18.016 
WTM0LE<4>»2.016 
WTMOLE ( 5 ) *32 • 0 
WTM0LE(6)«17.008 
WTMQLE(7)»28.01^ 

TXX-TI 

PXX-P1 

UXX-U1 

TERM»RH01*U1 
T I -T I*TI N* • 001 
P1-P1/PIN+PRES/2116. 

U1«U1*UIN 

DELTAT-4.E-7 

DELTAX«U1*DELTAT 

JER»INT(DX/DELTAX) 

IF (JER.EQ.O) JER- 1 
DELX-DX/FLOAT ( JER) 

TSAVE-TI 
DO 201 J ■ 1 , 7 
201 AS A VE ( J ) * AL PH A ( J ) 

DT-DELX/U1 

P-Pl 

OP-2116. /89517. 

RH-P*0P/TI*.001 

DO 10 JERRY-1. JER 

P-Pl 

DUM-0.0 

DO 96 J-1,7 

96 DUM-DUM + ASAVEU) /WTMOLE ( J) 

RHOI- RH/DUM 

IF ( IOCHEM.EO.O) 

1 WRITE (6.250) TI. P. RHO I. AS A VE» DT. TN. ALPHN 
250 FORMAT ( * POCUS FROM HOCUS* . 10E 11 . 3 /I 7X. 10E11 . 3 / > 
CALL POCUS (T I. P. RHOI. ASAVE.DT.TN) 

IF( IOCHEM.EO.O) 

1WRITE (6. 250) TI, P, RHO I, AS A VE » DT, TN, ALPHN 
IF(IOCHEM.EQ.O) 

1WRITE (6, 232 ) 

232 FORMATt//) 

IF( JERRY. NE.l) GO TO 100 
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DO 110 J * 1» 7 

110 WDQT< J>L )-TERM+(ALPHN< J) -A SAVE ( J ) >/DELX 
100 CONTINUE 

IF t JERRY. EQ.JER)GO TO 10 
TI*TN 

DO 20 J«l» 7 

20 ASAVECJ>«ALPHN< J) 

10 CONTINUE 

DTCHEM»(TN-TSAVE>* 1000. /TIN 
DO 40 J*l>7 

DALCH<J>«ALPHN< J>-ALPHA( J ) 

40 WDOTN<J>U»TERM*(ALPHN( J)-ASAVE(J) l/DELX 
TI-TXX 
P1«PXX 
U1*UXX 
RETURN 
END 

SUBROUTINE COEFF<I,T,A >B ,C ,Q , 
IF ( T— 1000 ) 10* 10» 20 

10 GO TO (15>16,13#11,12,17,14»18>19),I 

11 A « 2.8460B49E 00 

B - 4. 1932116E-03 

C — 9.6119332E-06 

D » 9.5122662E-09 

E --3.3093421E-12 

F «— 9.6725372E 02 

G —1.4117850E 00 

GO TO 40 

12 A • 3.7189946E 00 

B --2.5167288E-03 

C » 8.5837353E— 06 

D »-8.2998716E-09 

E « 2.7082180E— 12 

F *— 1.0576706E 03 

G » 3.9080704E 00 

GO TO 40 

13 A » 4. 1565016E 00 

B ■ — 1 . 72 44 3 34E— 0 3 

C - 5.6982316E-06 

D «— 4 .5 930044E— 09 

E - 1.4233654E-12 

F --3.0268770E 04 

G »— 6 • 86 16246E—0 1 

GO TO 40 

14 A - 3.6916148E 00 

B — 1.3332552E-03 

C « 2.6503100E-06 

D —9.7688341E-10 

E *-9.9772234E-14 
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F --1.0628336E 03 
G » 2.2874980E 00 
GO TO 40 

15 A « 2.5000000E 00 

B » 0.0 

C * 0.0 
D * 0.0 
E « 0.0 

F * 2.5470497E 04 
G --4.6001096E-01 
GO TO 40 

16 A * 3.0218894E 00 

B «-2.1737249E-03 
C « 3. 7542203E-06 
0 —2.9947200E-09 

E * 9.0777547E-13 
F « 2.9137190E 04 
G » 2.6460076E 00 
GO TO 40 

17 A * 3.8234708E 00 
B --1.1187229E-03 
C • 1.2466819E-06 
D —2.1035896E-10 
E »-5.2546551E-14 
F - 3.5852787E 03 
G « 5.8253029E-01 
GO TO 40 

18 A*2 .1701 

B-l .0378E-02 
C — 1.07339E-05 
D*6 • 34592E-09 
E — 1.62807E-12 
F*-4« 83526E+04 
G»10. 6644 
GO TO 40 

19 A«2. 49125 

B*7 . 64362E-03 

O7.97754E-06 

D--1.29578E-08 

E-5.03078E-12 

F--5421.86 

G»0 • 

GO TO 40 

20 GO TO (25*26»23»21>22»27>24»28»29)»I 

21 A * 3.0436897E 00 
B - 6. 1187110E— 04 
C —7.3993551E-09 
D --2.0331907E-11 
E « 2 • 45 93 791E-1 5 
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F 

G 

GO 

22 A 
B 
C 
D 
E 
F 
G 

GO 

23 A 
8 
C 
0 
E 
F 
G 

GO 

24 A 
B 
C 
D 
E 
F 
G 

GO 

25 A 
B 
C 
0 
E 
F 
G 

GO 

26 A 
B 
C 
D 
E 
F 
G 

GO 

27 A 
B 
C 
D 
E 
F 


* — 8 #5491002 E 02 
•-1.6481339E 00 

TO 40 

* 3.5976129E 00 

- 7*814 5 603 E — 0 4 
*- 2*2 386670E-07 

* 4 * 24901 5 9E-1 1 
•-3.3460204E-15 
*-l*1927918E 03 

* 3 • 74 926 5 9E 00 
TO 40 

* 2.6707532E 00 
« 3*0317115 E-Q 3 
*— 8*5351570E— 07 

* 1. 1790853E-10 
*-6* 1973568E-15 
*~2 • 98 88 994E 04 

* 6*68383 91 E 00 
TO 40 

* 2.8545761E 00 

* 1*59763 16 E — 0 3 
■-6.2566254E-07 

* 1. 1315849E-10 
*— 7.6897G70E— 15 
--8.9017445E+02 

* 6 • 3 9 02 8 79 E 00 
TO 40 

* 2 • 5 OOOOOOE 00 

* 0.0 

* 0.0 
* 0.0 
* 0.0 

* 2.5470497E 04 
•-4.6001096E-01 

TO 40 

* 2.5372567E 00 

* — 1*8422 1 90 E— 0 5 
*-8.8017921E-09 

* 5.9643621E-12 
--5.5743608E-16 

* 2 • 92 30007E 04 

* 4 • 94 6 79 4 2E 00 
TO 40 

* 2.8895544E 00 

* 9*9835 06 1 E — 0 4 
•-2.1879904E-07 

* 1 • 9802 785 E-l 1 
*-3*8452940E— 16 

- 3 *8811792 E 03 
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G - 5.5597016E 00 
GO TO 90 

28 A*4. 41293 
8*3. 19229E-03 
O-1.2978E-06 
D«2 .4147E-10 
E — 1.6743E-14 
F*”4 • 8999E+09 
G«-. 72876 

GO TO 90 

29 A*3. 16941 
B-1.02274E-02 
C*-3.85032E-06 
D-6.77198E-10 
E*-4.50135E-14 
F*— 5845 * 93 
G*0. 

40 RETURN 
END 

FUNCTION S2(XJ,RE) 

COMMON/EG/EIN,PR,XLE 

COMMON/ S S/AL1> AL2> BQ 1 » BQ2 » C 1 » C 2 , CH1» CH2 , OB 1» DB2> DD1, DD2» D Tl» D T2» D V 
A1,DV2,PX1, PX2> TA1, TA2»TH1»TH2»V1»V2>Y1>Y2 
RPR* 1 • /PR 

TERM1«V1*C1*DB1*RPR*V2*C2*DB2+RPR 

T£RM2*C1*DV1*BQ1*RPR+C2*DV2*BQ2*RPR 

TERM3*< V1*BQ1*CH1+V2*BQ2*CH2)*XLE*RPR 

TERM4*{V1*BQ1*PX1+V2*BQ2*PX2)*RPR 

TERM5«(V1*TA1**2+V2*TA2**2 )*EIN 

IF ( X J .NE . 0 • ) GO TO 10 

TERM6*0. 

GO TO 2 
10 YT«Y1*Y2 

IF < YT.LE.l.E-10) GO TO 20 

TERM6»V1*C1*BQ1*CQS( TH1 ) / Y 1 + RPR + V2 *C2*BQ2*C0S ( TH2 ) / Y2*RPR 
GO TO 2 
20 CONTINUE 

T£RM6»V1*C1*DB1*RPR+V2*C2*DB2*RPR 
2 S2*( TERM1+ TERM2+TERM 3 +TERM 4 +TERM5+TE RM6) /RE*. 5 /E IN 
RETURN 
END 

FUNCTION S3CXJ.RE) 

COMMON/EG/EIN# PR>XLE 

COMMON/ S S/AL1» AL2, BQ 1 . BQ2 , C 1 » C2 > CHI, CH2, OBI » DB2, DD1 » DD2, DT1> DT2» 0 V 
Al> DV2> PX1> PX2>TA1, TA2,TH1> TH2> Vl» V2» Yl, Y2 
RPR* 1 • /PR 

TERM1*V1*D01+V2*DD2 
TERM2-0V1*AL1+DV2*AL2 
IF(XJ.NE.O.) GO TO 10 
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TERM3-0. 

GO TO 2 
10 YT-Y1+Y2 

IFC YT.LE.l.E-10) GO TO 20 

TERM3*C0S ( TH1 )*V1*AL1 /Yl+COSC TH2)*V2*AL2 /Y2 
GO TO 2 
20 CONTINUE 
TERM3-TERM1 

2 S3*(TERM1+TERM2+TERM3 ) * XLE + RPR / RE* . 5 
RETURN 
END 

FUNCTION F 1 ( M » 

COMMON/BO/GAM 8# P B, QB, RHOB, THB, WB, XMUB, Y8 
COMMON/HL/ALPHA,BETA 

COMMON/HM/ALPNC 7,5 5) , CPN( 7,55) , CPXNC 55 ), EMNC 55 ) ,GAMN< 5 5 ) , HNC 7,55 ), 
1L,PN(55),QN(55)»RHQN(55),RN(55)»THN(55),TN(55)»WN(55)»XMUN(55) 

RP * 1 • / PB 

F1*SIN(XMUB)*C0S(XMUB)/GAMB*RP 
RPN* 1 • /PN ( M ) 

IF (BETA. GT .0. ) FI * < F 1 + SIN { XMUN ( M ) ) *COS ( XMUN ( M ) ) /GAMN ( M >*RPN >* . 5 

RETURN 

END 

FUNCTION F2<M,S11,S21,S31> 

COMMON /BO/GA MB, PB, QB, RHOB, THB, WB, X MU B, YB 
COMMON/DP/YN( 55 ) 

COMMON/HL /ALPHA, BETA 

CQMMON/HM/ ALPNC 7, 55) , CPN (7, 55) ,CPXN( 55 ), EMN( 55 ) ,GAMN (55),HN(7,55), 
IL,PN(55),QN(55),RH0N(55),RN(55),THN(55),TN(55),WN(55),XMUN(55) 
COMMON /Q A /H( 7, 55),Q(55),RH0(55),XMU(55) 

COMMON/WV/NPTS,RE, XBP,XJ 

IF(XJ.EQ.0.0)TERM1=0.0 

IF(XJ.NE.0.)TERM1*SIN(THB)/YB 

IF ( XJ.NE.O. . AND. BETA. GT.O. )TERM1*.5*(TERM1+S INC THN(M) ) /YN (M ) ) 

QS«1./QB**2 

TERM2-S11/RH0B+QS 

SQ-1. /QN(M)**2 

IFC BET A. GT.O . ) TERM 2- . 5+ C TE RM2 + S 1 1 /RHON ( M ) * SQ ) 

PI* 1 . /PB 

TERM3*S21*< GAMB-1 .)/GAMB*Pl/QB 
P2-1./PNCM) 

IFCBETA.GT .0. ) T E RM 3* . 5* ( T E RM 3+ S 2 1* < G AMN ( M ) - 1 . ) /GAMN < M ) *P 2 /QN ( M ) ) 
RQ-1./Q8 

TERNA»S31*WB/RH0B*RQ 

QD*1./QN(M) 

IFCBETA.GT .0. ) TERM A* . 5* ( T E RMA + S 3 1* WN ( M ) / RHON < M ) *QD ) 

F 2* C TERM1+TERM2-TERM 3-TERM A) 

RETURN 

END 

FUNCTION FA(B»OPT, XMU1,TH1, XMU2,TH2 ) 
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F 4* S I N ( XMU1) /CDS ( TH1+0PT+XMU1) 

IF (8.GT.0. ) F4*(F4+SIN(XMU2)/CQS ( TH 2+ OPT* XMU2 ) ) * .5 

RETURN 

END 

SUBROUTINE HERMAN( YN, DT, A, Y, C I , BB, CC , SC ALE ) 

DIMENSION P< 10,10) , S M AL B ( 10)* Q ( 10) , A ( 10, 10 ) » Y ( 7 ) , YN ( 7),CI(4) »FINK( 
14) 

TIM1-DT/2.0 

TIM2*DT 

TO* T I Ml**2 

Tl* (DT**2-T0 >*.5 

T2* (DT**3-TIM1*T0) /3.0 

T3»T0*.5 

T4*TIMl*T0/3.0 

K* 1 

DO 19 1*1,4 
DO 10 J* 1, 4 
P(K, J >*-A( I, J >*T3 

10 P(K + 1,J)—A(I,J)*T1 

19 K-K+2 
K* 1 

DO 20 1*1#* 

DO 11 J* 1, 4 

P(K, J+4)--A(I,J)*(T4) 

11 P(K+l,J+4)*-A(I, J)*(T2> 

20 K*K +2 
J*1 

DO 12 1*1, 6, 2 
S*l. /SCALE 

P(I,J)»P<I,J>+TIM1*S 
PCI# J+4)*P(I, J+4)+T0*S 
K* 1 + 1 

P ( K , J ) *P ( K, J )+(TIM2-TIMl)*S 
P(K, J+4)-P(K, J+4)+2.*Tl*S 
J-J + l 

12 CONTINUE 

DO 13 1*1,8 

13 0(1 ) *0 »0 

F INK ( 1 ) * Y ( 1 ) 

FINK(2)*Y(2) 

FINK(3)*Y{6) 

FINK(4)*Y(3) 

K* 1 

DO 15 1*1,4 
DO 14J»1,4 

14 0(K )-Q(K)+A( I, J )*FINK(J)*(TIM2-TIM1> 

0<K+1)*Q(K) 

15 K-K+2 

DO 16 1*1,4 
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J«2*I 

Q( J-l)-Q< J-1)+CI(I>*< TIM2-TIM1) 
16 Q( J)-Q( JI+CKI >*<TIM2-TIM1) 

DO 202 I " 1 » 8 
Q(I)»Q(I) /1.0E-5 
00 202 J " 1» 8 

202 P(I* J)«P(I# J)/1.0E-5 
CALL CL£M(8>SMALB»P>Q) 

CALL SOLT(SMALB»DT>CC»BB*Y*YN) 

RETURN 

END 

SUBROUTINE CLEM ( M> X» 0, D ) 
DIMENSION AT( 10> 11 ) ; X ( 10) 
DIMENSION BC 10» 10) »0( 10) 

Ml" M* 1 
DO 12 I ■ 1# M 
12 X(I)"0.0 

DO 200 1* 1 > M 

200 AT( I* Ml ) -D ( I ) 

DO 201 I ■ 1> M 
DO 201 J-1,M 

201 AT(I,J)«B(I, J> 

DO 32 N- 1 » M 

0- A T ( N» N ) 

IT-0 

DO 9 I -N» M 

IF(ABS(AT(I>N))— ABS(Q)) 9 , 9 , 0 

8 0" AT ( I» N ) 

IT" I 

9 CONTINUE 

I F ( IT-N>7,7,70 

70 DO 71 J - N» Ml 
TEMP- AT t N» J ) 

AT ( N# J ) « AT ( I T» J ) 

71 AT{ IT, J)»TEMP 
7 DO 10 I* 1 * Ml 

10 AT(N>I)«AT(N#I)/0 
IF ( M— N) 50» 50*18 
18 Nl-N+1 

DO 30 I«N1,M 
Q-AT ( I>N ) 

DO 30 J-N» Ml 

30 AT( I> J ) " AT ( I>J)— AT<N> J ) *0 

32 CONTINUE 

50 X ( M ) - AT ( M» M+ 1 ) 

DO 65 N-2 » M 
NR-M+l-N 
0- AT ( NR,M+1) 

DO 60 I»NR,M 
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60 0-Q-AT( NR, I ) *X ( I ) 

65 X(NR)-0/AT(NR,NR) 

RETURN 

END 

SUBROUTINE S01T(SMAIB,DT,CC,B8»Y,YN) 

DIMENSION SMAL8 ( 10 )» Y 17)* YN( 7) 

TIME-DT 
TNX *T IME**2 

YN(1)-Y(1)+SMALB(1)*TIME+SMAIB<5>*TNX 
YN(2 )»Y(2)+SMALB(2)*TIME+SMALB(6)*TNX 
YN(6)-Y(6)+SMALB<3 ) * T IME+SMALB ( 7 ) *TNX 
YN(3)»Y(3)+SMALB(<r)*TIME+SMALB(8)*TNX 
YN<<»)-CC-(YN<1) + YN(6) )*.5-YN<3) 

YNC5)»BB-(YN(2)+YN(6)+YN(3) )*.5 

RETURN 

END 

FUNCTION S 1 ( X J, RE ) 

COMMON /SS /All, AL2, BQ1, BQ2, C 1, C 2, CH 1# CH2, DB 1, DB2, DD1, 0D2, DTI, DT2, DV 
A1#DV2»PX1,PX2,TA1» TA2,TH1, TH2, VI, V2, Yl, Y2 
TERM1«V1*DT1+V2*DT2 
TERM2«DV1*TA1+DV2*TA2 
IF ( X J .NE . 0 . ) GO TO 10 
TERM 3 «0 • 

GO TO 2 
10 YT « Y 1 *Y2 

I F( YT.LE. l.E-10) GO TO 20 

TER M3- COS (TH1)*V1*TA1/Y1+C0S (TH2 )*V2*TA2/Y2 
GO TO 2 
20 CONTINUE 
TERM3-TERM1 

2 SI- ( TERM1 + TERM2 + TERM3 ) /RE*. 5 
RETURN 
END 

SUBROUTINE PUNCH 
CQMM0N/AC/I80D,PIN 
C0MM0N/BA/ALP(7,55 )»EMINF,WINF 
CQMM0N/DB/B6TB(20),IS (20), IDD, IJENK, JENKI 
C0MM0N/EF/EM(55)»GAM(55),P(55)»TH(55 >,Y(55) 

COMMON/EG/EIN, PR, XLE 
C0MM0N/FH/XK1,XK3, XPOT 
COMMON /HJ/KOU NT, LL,NPT 
COMMON/PO/ALPHN( 7), I FUEL, PRES 

COMMON /PQ/JC HEM, NS P, T (5 5 ) , P T ZE RO, IDI VERG, TH1, XE, YE, RCR, PTOJ, TO J 
1, EMI, XMU1, 01 

C0MM0N/WAVE/XB0D<5)» XWALL ( 5 > , AABOD ( 5 ) , BBBOD< 5 ) ,CCBOD ( 5 > » EEBOD< 5 ) , 
ZFFB0D(5),GGB00(5),LWALL,LB0D,III, JJJ 
COMMON/TW/TIN 
COMMON /WV/NPTS, RE, XBP,XJ 

COMMON /XY/ APRS, APUS, DELTA Y, E BODS, I BODS, I NTAC T, IPRS, I PUS, ITYP, 
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1JB0DS#MMAX#RHEAT,XK2# XKA# YBOT# YTP 
COMMON/ YX / ABODS, BPRESS,C PRESS 

COMMON /YZ/BPRESU#CHEMFC#CPRESU# EMSUB»RTH» XSTEP 

COMMON /ZY/ABOD# BBOD»CBOD#EBOD#F8QD#GBOD» IAVE# IPUNCH# JBOD# KKKKK 

COMMON/l/MASFRAC 

REAL MAS FR AC ( 7 > 

REWIND 7 

100 FORMAT ( 1615 ) 

101 FORMAT ( BE 10* 3 ) 

200 FORMAT ( 15# 5 X# 7E 10. 3) 

102 FORMAT (7E10. 3# F10« 5) 

103 FORMAT! 5F10. 5) 

104 FORMAT ( 7E 1 1 • A ) 

WR I TE ( 7# 100 ) KKKKK » LL 

WRITE !7# 200) I PUNCH# X STEP# PTZERO# XE# YE# RCR# PTOJ# TO J 
INTACT*0 
ISHOCK-O 
00 1111 I ■ 1# I DD 
1111 IF(lsm.NE.O) I SHOC K »1 

WRITE(7# 100)NPTS#NPT# ITYP# IS HOCK# MMAX# KOUNT 
WRITE (7# 100) JCHEM# IAVE# INTACT# 1 01 V ERG# 100 

WRITE (7# 102 ) X J # EMSUB#RTH» DELTAY# YBOT# YTP#CHEMFC» XBP 

RQ-RE/RTH 

WRITE(7# 101)RQ»PR# XLE#EMINF» TIN»WINF» PRES 

WRITE (7# 101)XP0T#XK1» XK2# XK3# XK4 

WRITE (7# 2 00) I BOOS# Ad 00# B BOO# C BOO 

IF( I BOOS • E 0 . 0 ) GO TO 3333 

WRITE (7# 100) III 

IFIIII.LE.O) GO TO 3333 

DO 2 I-l# III 

2 WRITE(7# 101) XBOD t I>» AABOD !I )» BBBOD! I )»CCBOD (I ) 

3333 CONTINUE 

WRITE (7# 200) J BODS# EB ODS # F B OD# G BOO 
I F ( JBODS.EQ.O) GO TO 333 
WRITE (7# 100) JJJ 
IF(JJJ.IE.O) GO TO 333 
00 6 I»1#JJJ 

6 WRITE (7# 101) XWALL! I) #EEBOD( I)» FFBOD( I ) # GGB 00 ( I ) 

333 CONTINUE 

WR I TE ( 7# 100 ) LWALL# L BOO 
WRITE(7#200)IPRS#APRS #BPRESS#CPRESS 
WRITE (7# 2 00) I PUS# A PUS # BPRE S U» C PR E SU 

IF ( I SHOCK . EQ • 0 ) GO TO 5 
WRITE (7# 100) ( IS { I ) #1* 1# IDO) 

WRITE (7# 101) (BETB(I)# I*1#I0D) 

5 CONTINUE 

DO 10 I » 1# NP TS 
A »P(I)/PIN 

ALP7-ALP! 7# D-ALP! 4# I ) * ( 1 . -RHE AT ) 
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ALP4«ALP(4,I )/RHEAT 

WRITE (7, 103) Y( I), A , TH ( I > , EM ( I ) , T C I > 

WRITE (7, 104) ALP(1,I ) » ALP ( 2, I ) , Al P ( 3 » I > , AL P4, ALP ( 5, I ) , At P ( 6, I > » ALP 
17 

10 CONTINUE 

WRITE(7,101) (MASFRAC ( I ) , I « 1, 7 ) 

REWIND 7 
END 

SUBROUTINE INDATA 
COMMON /AC/ I BQD> PIN 
COMMQN/AL/GAR,GEW . 

CQMM0N/BA/ALP(7,55 ), EMINF, WINF 
COMMON/BD/XMASS (55 ) 

COMMON /CJ /CP< 7, 55) ,CP1(7),CPX( 55) 

C0MM0N/CK/WTM0LE(7) 

C0MMQN/DB/BETB(20>,IS (20), IDD, I JENK, JENKI 
COMMQN/ED/CPIN,RO 

COMMON /EF /EM ( 55 ), GAM (55 >,P(55),TH(55),Y(55) 

COMMON/EG/EIN,PR,XLE 
COMMON/E P/GAM INF, HI (7 >,RINF 
C0MMQN/FH/XK1, XK3, XPOT 
COMMON /GE /RAD, ROO, UIN, VIS INF 
COMMON/GF/DELY, IFS,K0UNT0, MMM 
COMMON/HJ /MOUNT, LL,NP T 
COMMON/HK/RCO2,RH20, WFUEL 
COMMON/ OR /THBP, YBP,YBPN 
C0MM0N/PD/W(55),X(55) 

COMMON/PO/ALPHN( 7) , I F UEL, PRES 

COMMON /PQ/JCHEM, NS P, T ( 55 ) , PTZERO, ID I VERG, TH1, XE, YE, RCR, PTOJ, TO J 
1, EMI, XMU1, 01 

C0MMON/QA/H( 7,55 ),Q( 5 5),RH0(55 ),XMU( 55 ) 

C0MM0N/RC/R(55) 

COMMON/TW/TIN 

C0MM0N/UV/II11, I ERR, I PRESS, IPRESU, I SUB 
COMMON/WV/NPTS,RE, XBP,XJ 
COMMON/WX/APRESS, APRESU 

COMMON/XY/APRS, APU S, D E L T AY, E BODS , I BOD S, I N TAC T, I PRS, I PUS, I T YP , 
1JB0DS»MMAX»RHEAT,XK2, XK 4, YBQT , YTP 
COMMON / YX / ABODS, BP RES S, C PR ESS 

COMMON/ Y2 / BPRE SU, C HEM FC, CPRESU, EMSUB, R TH# X STEP 

COMMON /ZY/ABOD,B BOD, C BOD, E BOD, F BOD, G BOD, I A VE, I PUNCH, JBOD, KKKKK 
COMMON/WAVE/XBOD(5),XWALL(5),AABOD(5),BBBOD(5)»CCBOD(5),EEBOD(5), 
ZFFBQD(5),GGB0D(5),LWALL,LB0D, III, JJJ 
COMMON /I /MASFRAC 
REAL MASFRAC < 7 ) 

DIMENSION C PI NJ ( 7 ) 

I IN* 5 

ISUB-0 

XBP*0. 
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YBP-10000. 

THB P * 0 • 

RAD-O. 

IFUEL-1 

WFUEL-2.016 

100 F0RMAT<16I5) 

101 FORMAT ( 8E10.0 ) 

AOA F0RMAT(7Ell.A> 

200 F0RMAT(I5#5X# 7E10.0) 

REAO ( I IN* 100 ) KKKKK# LL 

READ ( I IN# 200 ) I PUNCH# XS TEP# PTZERO# XE# YE# RCR# PTOJ# TOJ 

REAO ( I IN# 100) NPTS»NPT» ITYP, I SHOCK# MMAX, KOUNT 

REAO ( I IN# 100 ) JCHEM# I A VE# INTACT# IDI VERG# 100 

IF ( KOUNT • L T • 1 ) KQUNT *0 

KOUNTO-KOUNT 

WRI TE (6# 1 1 1 ) KKKKK#LL 

111 FORMAT (8H1KKKKK «I5,5X#AHLL -13/) 

WRITE (6# 112) I PUNCH# X STEP# PTZERO# 1 01 VERG# IOD 

112 FORMAT < 9H IPUNCH -12# 5X# 7HXSTEP » E 10 . 3# 5 X# 8HPTZ ERO « E 1 0 . 3# 5 X# 9H I D I 
6VERG -12# 5 X# 6HI00 - 12/) 

WRITE (6# 1112 ) XE# YE# RCR# PTOJ# TOJ 
1112 FORMAT ( IX# * XE # YE# RCR# PTOJ# TO J + # 8E10. 3 / ) 

WRITE (6# 113) NPTS#NPT# ITYP# I SHOCK# MM AX 

113 FORMAT (7H NPTS -I3#5X,5HNPT - 1 2 # 5 X , 6H I T Y P - 12# 5X, 8HI SHOCK «I2»5X,6 
1HMMAX -13/) 

WRITE(6#11A) JCHEM, IAVE# INTACT 

1 1 A FORMAT ( 8H JCHEM - 1 2# 5 X# 6HI A V E »I2#5X# 

18HINT ACT -12/) 

IF< ITYP.NE.2. AND. ITYP. NE. A) GO TO 12 
IF ( INTACT. EQ.O. AND. ISHOCK.EQ.O ) GO TO 12 
WR I T E ( 6# 9191) 

9191 FORMAT ( 1H1 ) 

WR I TE ( 6, 102 ) 

102 FORMAT ( 91H TYPE 2 OR TYPE A FLOWS MAY NOT START WITH SHOCKS OR HAV 
6E SHOCKS COMING OFF SPLITTER PLATES/A3H RECHECK INPUTS AND SUBMIT 
1WITH PROPER TYPE) 

STOP 

12 CONTINUE 

10A READ( IIN# 101 ) XJ, EMSUB# RTH# DELTAY# YBOT# YTP# CHEMFC# XBP 

. READ ( IIN# 101) RE# PR# XLE#EMINF# TIN# WINF# PRES 
READ C IIN, 101 ) XPOT# XK 1# XK2 # XK3# XK A 
READ « IIN# 2 00 ) I BOD# A BOD# 3B0D# C BOD 
I F t IBOD.EQ.O) GO TO 1 
RE AD ( 5# 100 ) III 
IF(III.LE.O) GO TO 1 
DO 2 I*1#III 

2 READ (5# 101) XBOD( I )# A A BOD ( I )# BB 80 D ( I ) # CC BOD ( I ) 

1 CONTINUE 

READ ( I IN# 200) J BOD # E B OD# F BOD# G BOD 
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IF ( JBOD. EQ.O) GO TO 4 
READ ( 5, 100 ) JJJ 
IF(JJJ.LE.O) GO TO A 
DO 6 1*1, JJJ 

6 READ (5, 101 )XWALL( I), EEBOD( I ) , FFBOD ( I ) , GGBOD ( I ) 

A CONTINUE 

RE AD ( I IN, 100 ) LWAL L, L BOD 

IF< (LBOD-1) .EQ.O) GO TO 97777 

AB0D*AAB0D(IBQD-1) 

BB0D*BBB0D(LB0D-1) 

CBQD*CCBOD( LBOD-1) 

97777 CONTINUE 

I F C ( LWALL-1) .EQ.O) GO TO 93333 

EB0D*EEB00(LWALL-1) 

FBOD*FFBOD( LWALL-1) 

GBOD*GGBOD( LWALL-1 ) 

93333 CONTINUE 

READ ( I IN, 200) IPRESS, APRESS, BPRESS,C PRESS 
READ ( I IN, 200 ) IP RE SU , APRE S U, BP RES U, C PRES U 
I F ( XBP.LT.O. ) XBP*0. 

J-XJ+.5 

XJ«J 

WRITE (6, 115 ) XJ, EMSUB,RTH, DELTA Y,YBOT, YTP.CHEMFC 

115 FORMAT ( 5H XJ -E10. 3, 2X, 7HEMSUB *E10. 3, 2X, 5HRTH *E 10 . 3, 2X, 8HDELTA Y 
1»E10.3,2X,6HYBOT * El 0 . 3, 2X, 5HYTP *E10. 3, 2X, 8HCHEMFC -E10.3/) 

WRITE (6, 116) RE, PR, XL E, EMI NF, TIN, WIN F, PRES 

116 FORMAT (5H RE *E 10. 3, 2 X, AHPR *E 10. 3, 2X, 5HXLE * E 10 . 3, 2 X, 7HEMINF *E10 
1.3, 2X,5HTIN «E10.3,2X,6HWINF * E 10 . 3, 2X, 6HPRES -E10.3/) 

WRITE (6, 117) XPOT, XK1 , XK2, XK3, XKA 

117 FORMAT ( 7H XPOT *E1 0. 3 , 2X, 5HXK1 *E10.3,2X, 5HXK2 *E 10 . 3, 2X, 5HXK3 -El 
10.3, 2X,5HXKA *E10.3/) 

WRI TE (6, 118) IBOD, ABOD, BBOD,CBOD 

118 FORMAT ( 7H IBOD « 12, 2 X, 6HAB0D « E 10. 3, 2X, 6HBB0D *E10 . 3, 2X, 6HC BOO -El 
10.3/) 

IF(III.LE.O) GO TO 222 
WRITE (6, 500 ) III 

5 00 FORMAT (IX, *III»*, 1 5 / /, 2 X, * XBOD, AABOD, BBBOD, CC BOD* ) 

DO 22 1*1,111 

22 WRITE (6, 1010) XBOO ( I ) , AABOD ( I > , BBBOD ( I ) , CC BOD ( I ) 

1010 FORMAT (8E10. 3 ) 

222 CONTINUE 

WRITE (6, 119) JBOD, EBOD, FBOD, GBOD 

119 FDRM AT( 7H JBOD * 12 , 2 X , 6HE B OD *E10. 3, 2X,6HF BOD * El 0 . 3 , 2 X, 6HGB0D *E1 
10.3/) 

IF(JJJ.LE.O) GO TO 666 
WRI TE ( 6, 50 1 ) JJJ 

501 FORMAT (IX, *JJJ**»I5//»2X»*XWALL»EEBOD»FFBQD, GGBOD*) 

DO 66 I»1,JJJ 

66 WRITE (6, 1010) XWALL (I >,EEBOD( I ), FFBOD (I ), GGBOD ( I ) 
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666 CONTINUE 

WRITE ( 6, 502 ) LWALL,LBQD 
502 FORMAT ( IX, +LW ALL**, I5,6X,*LB0D*+, 15) 

WRITE (6, 120) I PRESS, A PRESS, BPRESS,C PRESS 

120 FORMAT ( 9H IPRESS * 12, 2X, 8HAPRESS «E10. 3, 2X, 8HBPRESS *E10 . 3, 2X, 8HCP 
1RESS -E10.3/) 

WRITE (6, 121) IPRESU, APRESU, BPRESU,CPRESU 

121 FORMAT (9H IPRESU - 12, 2X, 8HAPRESU -E10. 3, 2X, 8HBPRESU *E10 . 3, 2X, 8HCP 
IRE SU -E10.3/) 

All IBODS-IBOD 
ABODS-ABOD 
IPRS* IPRESS 
APRS-APRESS 
JBODS-JBOD 
EBODS-EBOD 
IPUS-IPRESU 
APUS* APRESU 

IF ( I SHOCK* EQ* 0 ) GO TO 5 
READ (I IN, 100) (IS (I ), I«1,IDD> 

RE AD (I IN, 101) (BETB(I ),I*1,IDD) 

WRI TE (6, 128 ) ( I, IS ( I), 1*1, IDD) 

128 FORMAT ( A ( AH I S C , 12, 2H ) - 1 3, 2X ) / ) 

WRITE (6, 129) <I,BETB(I ),I-1, IDO) 

129 FORMAT (A (6H BETB (, 12 , 2H) -E 10 . 3, 2 X ) /) 

5 CONTINUE 

DO 10 1*1, NP TS 

RE AD ( I IN, 101) Y( I),P( I),TH(I),EM( I), T( I) 

RE AD ( I IN, AOA ) ( ALP ( J , I ) , J - 1, NS P ) 

10 CONTINUE 

READ(5, 101) (MASFRACI I >,1*1,7) 

WRITE (6, 1101) (I, M ASF RAC (I ), 1-1, 7) 

1101 FORMAT ( 9H MA S FR AC ( , 1 2 , 2H ) - E 1 5 . 7, 2 X ) 

IF ( ITYP.EQ.DGO TO A201 

1800*0 

JBOD-O 

IF{ITYP.EQ.3) J BOD * J BODS 
IF t ITYP.EQ.A) I BOD* I BODS 
A201 RHE AT * 1. 

RH20-1. 

RC02-0. 

A20 A WTMQLE (A ) - WFU6L 
RE*RE*RTH 
IERR* 0 
DO 13 1-1,7 

IF(MASFRACU).EQ.O.O) GO TO 13 

CALL COEFF( I, TIN, A Z, B Z, C Z, DZ, HZ, F Z, GZ ) 

CPINJ(I)-(AZ+BZ*TIN+CZ*TIN**2+DZ*TIN**3+HZ*TIN**A)*R0/WTM0LE(I) 

13 CONTINUE 
CPIN*0. 
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DO 1313 1-1,7 

CPIN-CPIN+MASFRAC( I) *CPINJ (I) 

1313 CONTINUE 

RINF-RO/WINF 

GAMINF«1./(1.— RINF/CPIN) 

RINFF-ROO/WINF 

UIN«EMINF*SQRT(GAMINF*RINFF*TIN) 

RF-l./RINFF 

RHOINF-PRES+RF/TIN 

VISINF-RHOINF*UIN*RTH/RE 

GAR»GAMINF*RINF 

GEW»GAMINF*EMINF**2/WINF 

E IN- (GAMINF-1.) * EMINF**2 

EMS-1»/EMINF**2 

PIN-1. /GAMINF*EMS 

WRITE (6, 6898 ) 

6898 FORMAT(////A8X,31HP ROGRAM VIS-CHAR //60X,7HW I T H 
1 / /A2X, 43HE MBEDDED SUBSONIC FLO W//53X,21HS H 0 
1 C K WAVE S / / 33 X » 6 3H A ND FINITE RATE H2-AI 
1R CHEMISTRY) 

IF ( XJ . EQ .0 . ) WRITE (6, 5610) 

I F ( X J .NE • 0 • ) WRITE (6, 5611) 

IF( JCHEM.EQ.O) WRI TE ( 6, 5612 ) 

I F ( JCHEM.EQ.l ) WRI TE ( 6, 5 6 1 3 ) 

5610 FORMATC ///10X,31HTYPE OF FLOW IS TWO DIMENSIONAL) 

5611 FORMAT ( / / / 10 X, 28HTYPE OF FLOW IS AXISYMMETRIC ) 

5612 FORMAT (10X, 19HCHEMISTRY IS FROZEN) 

5613 FORMAT (10X, 2 AHCHEMIS TRY IS FINITE RATE) 

WR I TE ( 6, 5600 ) RTH 

5600 FORMAT( 

11 OX, 2 8H JET OR NOZZLE RADIUS (RTH) * E13.5,4H FT.) 

WRITE (6, 5601) EM IN F, U IN, T IN, PRES, RHOINF, GAMIN F, WIN F, RE, PR,XLE 

5601 F0RMAT(///20X,20HREFERENCE CONDIT IONS /20X,20H / 

110X, 18HMACH NO. (EMINF) - E13.5/10X, 16HVEL0CITY (UIN) - E13.5, 

1 7H FT/SEC/10X, 19HTEMPERATURE (TIN) -E13.5.10H DEGREES K/10X,17HPR 
1ESSURE (PRES) -E13.5,9 H L B / FT**2 / 10X, 18HDENS I T Y (RHOINF) -E13.5, 
112H SLUGS/FT**3/10X, 37 

1HFR0ZEN SPECIFIC HEAT RATIO (GAMINF) - E 1 3 . 5 / 10X, 2 5HM0LECULAR WEIGH 
IT (WINF) -E13»5/10X,22HREYN0LDS NUMBER (RE) - E 13. 5 / 1 OX, 2 1HPR AND TL 


INUMBER (PR) -E13.5/10X.20HLEWIS NUMBER (XLE) -E13.5) 

WRITE (6, 5602 ) 

5602 FORMAT( / / / 20 X, 1 5H0UT P UT HE AD INGS /2 OX , 1 5H / 

110X, 9HX - X/RTH/10X, 9HY - Y/RTH/10X, 16HQ - VEL0CITY/UIN/10X, 


119HT - TEMPERATURE/TIN/10X, 17HP - PRESSURE/PRES/10X, 30HTH - FLOW D 
1EFLECTI0N (RADIANS) /10X,16HEM - MACH NUMBER/10X, 20HRH0 - OENSITY/ 
1RH0INF/10X, 19HGAM - SPECIFIC HEAT 
1 /10X, 33HXMASS - NON-DIMENSIONAL MASS FLOW 

1 / 1 OX, 2 3HPH I - EQUIVALENCE RATI0/10X, 

120HW - MOLECULAR WE IGHT / / 10X1 AHM AS S FR AC T IONS / 15X10HALP ( 1 ) - H/15X 


1 OM 


APPENDIX A 


1 10HAL P ( 2 ) - 0/15X, 12HALPC3) - H2Q/15X* 11HALPC4) - H2 / 15X, 11HALP ( 5 ) 
I - 02/15X,llHALP(6> - OH/ 1 5 X, 1 1HALP ( 7 ) - N2> 

413 DO 1774 I* 1# NPTS 
X< I ) ■ XBP 
P<I)«P(I>*PIN 
ALPC4,I)«RHEAT*ALP<4, I) 

ALPC?#I)»(1.-RHEAT)*ALP<4, I)+ALPC 7»I ) 

DO 788 J»1>NSP 

788 IFCALPC J»I).LT.1.1E-10) Al P ( J, I ) «1 . 1 E-10 

ALP(7,I)«l.-< ALP(1»I)+ALP(2,I>+ALP<3*I>«-ALP(4, I ) ♦ ALP t 5> I > +ALP t 6> I > 
1) 

1774 CONTINUE 

DO 8883 I-1,NPTS 

CALL THERM0(T(I)»H1,CP1» 

CPXl I >»0.0 
WCU-0.0 
D01776 J«l, NSP 
CPC J>I)«CP1< J) 

H( J, I ) -HI ( J) 

CPXCI)«CPXCI)+ALP( J>I)*CP( J»I) 

1776 WCI) - WCD+ALPC J»I) /WTMOLEC J) 

W(I)»1./W(I) 

RHOC I )«GEW*W( I)*P( I) /TCI) 

RCI)*RO/W(I) 

GAMC I)-CPX( I) /(CPX(I)-Rl I) /CP IN) 

OM-l./EMINF 
OR-l./RC I) 

Q(I)-EM(I)*OM/SQRT(GAR/GAM<I )*OR/T(I ) ) 

IFCEMC I) .GT.l. ) 

1XMUC I J-ATANC 1. /SORT (EMC I >+*2-1. ) > 

8883 CONTINUE 

I F C INTACT. EO.l) CALL COWL 
IFC INTACT. NE.l) GO TO 8401 
DO 3 K3»5»NPTS 
K3K-NPTS+5-K3 
J3-K3K+1 

CALL SWITCHC J3» K3K ) 

3 CONTINUE 
NPTS-NPTS+1 
IS(3)-IS(3)+1 
IS ( 4 ) *5 

ZMANG*ASIN(1./EM(5 ) ) 

BETB(4)*-{ ZMANG-TH ( 5 ) ) 

8401 XJ1-1.+XJ 

XMAS S ( 1 ) *0. 

DO 1785 I ■ 1» NPTS 
IFCI.EQ.l) GO TO 1785 
XJ1-1.+XJ 

YFUN« CYC I>*< l.-XJ+YC I )*XJ )- Y< 1-1 )* ( l.-XJ+Y ( 1-1 )*XJ ) ) /X J 1 
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RQAV»{RHO(I)*Q(I)*COS(TH(I))+ RHO( I-1)*Q< 1-1 ) *COS ( TH ( 1-1 ) ) ) /2 . 
XMASS ( I ) ■ XMAS S < 1-1 ) +RQAV+YFUN 
1785 CONTINUE 

DEL Y* ( YBP-Y { 1 ) ) /FLOAT (NPTS-1 ) 

RETURN 

END 

FUNCTION F3 (TP1,DTC, Tl, TC>TH1> THC » D A, W 1, WC ) 

COMMON/CK/WTMQLE( 7) 

COMMON/GK/DELX 
COMMON /HL/AL PH A> BETA 
DIMENSION D A ( 7 ) 

NSP»7 
A« ALPHA 
B« BE T A 

TERM1-DTC/ ( (A-B)*TP1+B*CT1+TC) ) 

TERM2 »0 • 

DO 10 J *1 > NS P 

TERM2»TERM2+DA( J)/WTMOLE( J) 

10 CONTINUE 

TERM5»A*W1+B*WC 
TERM2»TERM2*TERM5 
TERM3»A*C0S(TH1 )+B*COS(THC) 

F3»-( TERM1+TERM2 )*TERM3/DELX 

RETURN 

END 

SUBROUTINE POCUSITI* P RE S S I , RHO I , AL PH I , DT » T N ) 

COMMON /PO/ALPHNt 7) , I FUEL* PRES 

DIMENSION ALPHI ( 7) > AD (10, 10) »CI ( 10), Y< 7 )> YN ( 7) » ALPHA (7) 
DIMENSION T0C7),T1(7),B<7),C(7>,D(7),E<7),G(7>,Z(7) 

TO ( 1 ) >6 • 0 
TO ( 2 ) *6 • 0 
TO ( 3 ) *0 • 5 
TO )«0.5 
TO ( 5 ) »0» 5 
TO ( 6 ) »0 • 5 
TO ( 7 ) «0 • 5 
Tl(l)«6.0 
T1 ( 2 ) *6 • 0 
T 1 ( 3 ) »3 *02 59 
Tl( A)-A*0960 
T 1 C 5 > *2 • 92 82 
T1 ( 6 ) »3 *63 92 
Tit 7)»2.A800 
B(l)»39.7055 
B<2>«2.5674 
B(3)-3.5961 
B(A)»2 7*4123 
B ( 5 ) «1 • 7771 
B<6>-3.3496 
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8(7) 

*2*0043 

C <1 ) 

*0.0 

C ( 2 ) 

*0.0 

C(3 ) 

* .5486 

cm 

*1.5999 

C ( 5 ) 

-.1595 

C (6 ) 

-.1619 

C ( 7 ) 

*.1531 

D(1 ) 

-0.0 

D ( 2 ) 

*0.0 

0(3) 

*-31.7850 

om 

*-34.5288 

0(5) 

*-1.8504 

0(6 ) 

-1.3139 

0(7) 

*-1.4976 

E(l) 

*0.0 

E ( 2 ) 

-0.0 

E ( 3 ) 

-6.3657 

Ed) 

-38.9184 

E ( 5 ) 

-2.5521 

E ( 6 ) 

*4.3679 

E ( 7 > 

*2.6093 

G ( 1 ) 

-404.5564 

G ( 2 ) 

*29.1774 

G ( 3 ) 

*-26.9024 

Gd) 

--8.088 

G ( 5 ) 

*-.522 

G ( 6 ) 

*3.4213 

G( 7) 

*-.5961 

Z(l) 

-.063 

Z ( 2 ) 

-1.0 

Z( 3) 

-1.13 

Z( 4) 

-.126 

Z ( 5 ) 

*2.0 

Z ( 6 ) 

-1.063 

Z ( 7 ) 

-1.75 


PSSSS-PRESSI 
KASE= IFUEL 

IF(KASE.EQ.2) PRESSI -PRESSI+.35 

IF(KASE.EQ.3) PRESSI* .2*PRESSI 

RHOI*RHQI*PRESSI/PSSSS 

KTEST-0 

EL0«1 .0 

OLTI«0.0 

EPS*. 001 

TIME0-1.38725E-5*EL0 

DT-DT/TIMEO 

P0«PRESSI*1.01325E6 

RH00-P0*1.924465E-10 
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RH0I-RH0I*.5154/RH00 

PRESSI-1.0 

T* T I 

HI *0 .0 

DO 65 1-1*7 

IF(T-TKI)) 62*61; 61 

61 HI»(D(I)+E(I)*T)*ALPHI(I)+HI 
60 TO 65 

62 I F ( T— TO ( I ) ) 63* 63*64 

63 HI-(G(I)+B(I)*T)*ALPHI(I)+HI 
GO TO 65 

64 HI»(G(I)+B(I)*T+C ( I ) * ( T-TO ( I ) ) **Z ) * ALP HI ( I ) + HI 

65 CONTINUE 
92 CONTINUE 

JJJ * 25 

J J * 0 

T * T I 

TSAVE-T 

KOUNT-O 

RHO* RHO I 

DELT A-DLTI 

GAMMA-DT*DELTA+1. 

PRESS-PRESSI 

H-HI 

SUMY-O. 

DO 11 1-1*7 
ALPHA (I)-ALPHI(I) 

Y ( I ) - RHO+ALPH A ( I ) ✓ Z ( I ) 

YN ( I ) -0. 0 
11 SUM Y - SUM Y + Y (I ) 

DUM1«8,67031E-7*RH00*EL0 

DUM2«DUM1*RH00/16. 

IF(ALPHA(3) .GT.1.E-10)G0 TO 6 
IF< ALPHA(6) .GT.l.E-10) GO TO 6 
IF( ALPHA(5).GT.1.E-10) GO TO 30 
I F t ALPHA(2 ). GT.l.E-10 ) GO TO 30 

F5- ( 1 • 85 E 1 7*E XP (-25 . /T ) ) * ( DUM 1*EXP <-29./T)/T> 
B5-1.E16*DUM1*RH00/16. 

B11--(F5*.5*2.*B5*Y( 1) )*SUMY 
CC1-B5*Y(1)**2*SUMY 
CC-GAMMA*(Y (2 )+Y( 1 ) * • 5) 

C1»F5*CC*SUMY+CC1 

A11-DELTA+B11 

DUM-C1/A11 

YN( 1 )--DUM+< Y(1)+DUM)*EXP (A11*DT> 
IF(YNd).LT.O.O) YN(1)«0.0 
YN(4)»CC-YN(1)*.5 
GO TO 99 

30 IF(ALPHA(4). GT.l.E-10) GO TO 6 
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IF(ALPHA(1>.GT.1.E-10> GO TO 6 

F0«(5.8E16*EXP C-30.3/T) )*(DUM1*EXP (-30.3/TWT) 
B8«6.E14*DUM1*RH00/16. 

B11--(F8*.5+2.*B8*Y< 1) )*SUMY 
CC1-B8*Y<1)*Y(1)+SUMY 
BB-GAMMAM Y(2) + Y(l )*.5) 

C1-F8*BB*SUMY+CC1 

A11-DELTA+B11 

DUM-C1/A11 

YN( 1)— DUM+( Y(1)+DUM>*EXP (All*OT> 

YN ( 2 ) ■ BB— YN ( 1 ) * • 5 
IF(YN(2) .LT.O.O) YN<2)-0.0 
YN ( 5 ) * BB— YN ( 2 ) * • 5 
GO TO 99 
6 CONTINUE 
KGUNT-1 

IF(KASE.EQ.2) T*l./< 1 . 1087/ T-. 09497) 

IF ( K ASE . EG • 3 ) T«i . / ( . 786/T+. 2381 > 

F1-3.E14+EXP <-8.81/T)*DUMl 
F2-3.E14*EXP (-4.03/T)*DUMl 
F3»3.E14*EXP (-3*02/ T )*DUM1 
F4-F3 

B1-2.48E13+EXP <-.66/T)*DUMl 
B2-1.3E14+EXP ( —2 • 49 / T ) *0UM1 
B3-1.33E15*EXP ( -1 0. 9 5/ T ) *DUM 1 
BA-3. 12E15*EXP ( -1 2 . 5 1/ T ) *DUM 1 
T-TSAVE 
TSAVE-T 

IF(KASE.EQ*2 ) T- 1 . 24 1 + . 055 2 4*T 
F6-9.66E18+EXP < -62 . 2 /T ) / T+DUM 1 
F7»8.00E16*EXP < -52 . 5 / T ) / T * DUM 1 
B6- 1 . E 1 7*DUM2 
B7- 1 • E16*DUM2 
T-TSAVE 

F5-1.85E1 7*E X P < -5 4. / T ) /T+DUM1 
F8- 5 • 80E 16 *E X P ( -60. 6 /T ) /T+DUM 1 
B5 » 1 • E 16+DUM2 
B8-6 . E14+DUM2 
DUM1-(Y(2)+Y(6)+Y<3> )*.5 
DUM2-(Y(1)+Y(6) ) *• 5+ Y ( 3 ) 

DUM3-Y(1)*.5 + Y(6) + Y( 3 ) 
DUM4-F1*Y(1)*DUM1+B1+Y(2)+Y{6) 
DUM5-F2*Y(2)*DUM2+B2*Y(1 )*Y<6) 
DUM6-F3*Y(6)*DUM2+B3*Y( 1)*Y( 3) 

DUM7-F4+Y (6 ) * Y (6)— B4*Y(2)*Y(3) 
DUMS«(F2*.5-B7*SUMY) * Y < 2 ) +B2+Y < 6 ) 
DUM9-(F1*.5-B7*SUMY)*Y(1)+B1*Y{6> 

DUM10«(F2*.5-B1 >*Y<2> + <B2-F1*.5 >*Y( 1) 
DUM11«(F1*.5— B3)*Y(1 )-F3*Y(6> 
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DUM12-F1*DUM1-B3*Y( 3) -F3*.5*Y(6) 

DUM13«(F8*SUMY+F1*Y< 1 ) )*.5 
DUM14«B6*Y( I) *SUMY-F3*DUM3 
DUM1W.*F4*Y(6) 

DUM16*SUMY+Y (1) 

DUM17»B6*SUMY*Y<6) 

B12* DUM9— F2+DUM2 
B21-DUM8-F1+DUM1 
B19«<F6-F5)*SUMY-F2*Y(2)+DUM11 
B29- ( F2-B4)*Y<2 )-DUM13 
B91-DUM12+B21-DUM8+DUM17 
B27-SUMYMF7-F8/2. )+DUM10+DUM15 
B79»F6*SUMY-DUM11+ (2 .+B4-F2) *Y<2 ) 

B77«-(DUM14+SUMY*F7+( FI* . 5 + B2 ) + Y ( 1 ) + < B 1+ F2* . 5 > * Y < 2 > +2 . *DUM15 ) 

B92 *-B4 + Y ( 3 ) 

B22--SUMY*(2.*B8*Y(2 ) +B7*Y(1) ) -B 1* Y ( 6 > +F 2+DUM2-DUM1 3+B92 
B11«DUM12-F5*SUMY*.5-(F2*.5+B7*SUMY)*Y<2 >-B2* Y < 6 ) -DUM17-2 .* B5* DUM 1 
16 

B97-DUM14+DUM15 

899*DUM11— (F1*«5*Y(1 ) +F6*SUMY+B4* Y ( 2 ) ) 

B71*— (DUM12+DUM8+DUM17) 

B72»2.*B4*Y< 3 )-DUM9-F2*DUM2 
B17»SUMY*{ F7-F5/2. )-DUM10-DUM14-2 . *F 3*DUM3 
CCl*DUM5-0UM4+DUM6+( B6* Y ( 6 ) +85* Y ( 1 ) + B7*Y ( 2 ) ) *DUM16 
CC2*DUM4-DUM5-DUM7+< B7*Y<1 >+B8*Y(2 » )*SUMY*Y<2) 

CC7-DUM4+DUM5-DUM6+2 .*DUM7+( B6*Y<6 )-B7*Y<2 ) >*DUM16 
CC9*DUM6-DUM7— B6*Y(6)*DUi116 
14 BB-GAMMA*(Y(5)+(Y(2)+Y<6)+Y(3) >*.5> 

CC«GAMMA*( Y(4)+Y<3) + < Y(l)+Y<6) )*.5> 

AD(1>1)»B11+DELTA-F1*BB 

AD( 1,2)-B12+F2*CC 

AD( 1> 3)*B17+F3*CC 

AD<1>4)«819 

AD ( 2 » 1)*B21+F1*BB 

ADC2>2)«B22+DELTA-F2*CC 

AD( Z, 3) -B27 

AD< Z, 4) -B29 

AD(3>1)-B71+F1*BB 

AD(3#2)*B72+F2*CC 

AD(3,3)»B77+DELTA-F3*CC 

AD < 3» 4 ) « B79 

AD ( 4> 1 ) » B9 1 

AD ( 4> 2 ) *B92 

AD( 4> 3 ) *B97+F3*CC 

AD(4#4)*B99+DELTA 

CI(1»-CC1+F5*SUMY*CC 

Cl (2 >«CC2 + F8*SUMY*BB 

C I ( 3 ) *CC 7 

C1(4)-CC9 
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SCALE-0.0 
DO 50 1*1,4 
DO 50 J-1,4 

5 0 SC ALE - AM AX 1( SCALE, ABS(AD<1, J) ) ) 

DO 51 1*1,4 
DO 52 J-1,4 

52 AD(I,J)*AD(I, J) /SCALE 
51 CI(I )*CI (I ) / SC ALE 

CALL HERMAN { YN,DT, AD, Y, Cl , BB, CC, SC AL E > 
99 DO 90 J-1,6 

IF( YN(J) .GE.O.O) GO TO 90 
DT-DT/10. 

KT EST -KTES T+ 1 
I F ( K T ES T-3 ) 92,27,27 
90 CONTINUE 
DUM-0.0 
DO 1 J * 1 , 6 

1 DUM-DUM+YN(J)*Z(J) 

RHON*DUM/( 1.- ALPHA (7) ) 

YN ( 7 ) *RH0N*ALPHA(7) /Z (7) 

SUM YN *0 • 0 

DO 2 J-1,7 

2 SUMYN*SUMYN+YN< J ) 

TT*PRESS/SUMYN 

DO 4 J-1,6 

4 ALPHA< J )*YN< J >*Z< J )/RHQN 
AH-0.0 
BH * 0 • 0 
CH-0.0 

DO 505 1-1,7 

IF ( TT-T1 < I ) ) 502,501, 501 

501 BH»BH-E( I )*ALPHA (I )*.5 
CH*CH + D( I ) * AL PH A ( I ) 

GO TO 505 

502 I F ( TT-TO ( I ) ) 503,503,504 

503 BH*BH-B< I ) *ALPHA( I )*. 5 
CH* C H+G ( I ) * AL PH A ( I ) 

GO TO 505 

504 AH * AH + C ( I) * A L P H A ( I ) 

BH- BH + AL PH A ( I)*<C(I)*T0(I)-B(I)*.5) 

CH* C H + AL PH A ( I )*(G(X)+C(1)*T0(I)**2) 

505 CONTINUE 
CH-CH-H 

IF ( AH) 507,506,507 

506 T-CH/BH/2. 

GO TO 508 

507 T * ( BH + SORT (BH*BH-AH*CH) )/AH 

508 CONTINUE 

I F ( J J ) 31, 31,22 
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31 ERR1* TT-T 

IF(ABS<TT/T-1. OKIE. EPS) GO TO 27 
GAM1*GAMMA 
GAMMA*. 98*GAMMA 
130 GAM2«GAMMA 

DELTA* (GAMMA-1. ) /DT 
JJ-JJ+1 

IF (JJ-JJJ) 84,84, 12 
84 IF (KOUNT.EQ.l) GO TO 14 
T-TSAVE 
60 TO 6 
22 ERR2-TT-T 

IF(ABS(TT/T-1. OKIE. EPS) GO TO 27 
25 GAMMA-GAM 1-ERR1* (GAM2-GAM1)/ (ERR2-ERR1 ) 
GAM1-GAM2 
ERR1-ERR2 
GO TO 130 

12 WRITE (6, 13 ) 

13 FORMAT ( 1H0, 23H JJ IS GREATER THAN JJJ) 

27 TN* T 

DO 28 J-l, 7 

28 ALPHN(J)»ALPHA(J) 

DT«DT*TIMEO 

PRESSI-PSSSS 

RETURN 

END 
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SUBROUTINE OF PROGRAM 


The name and the function of each subprogram unit are given in this 
appendix. 


Name 

Page 

Description 

EM VC 

7 

Main program manages the computation 

WAVES 1 

17 

Computes and inserts wave structure caused by 
geometric breaks 

CROSS 1 

24 

Computes interaction of shock waves of the same 
or opposite families 

EMBED 

28 

Locates and computes properties on the free-stream 
and downstream side of embedded shocks 

SOLVE 

32 

Calculates the determinant of a 3 by 3 matrix 

HSHOCK 

32 

Computes shock- jump conditions and properties on 
downstream side of shock 

SWITCH 

38 

Transfers properties to dummy storage during 
computations 

PM 

39 

Used by COWL to compute properties in Prandtl- 
Meyer fans 

CHEM 

41 

Calculates chemistry terms 

SHEAR 

42 

Computes right-hand side of the modified con- 
tinuity equation 

PRESS 

43 

Calculates pressure as a function of x if a 
pressure boundary is specified 

XVIS 

43 

Computes nondimensional viscosity (p/U^) 

COWL 

44 

Used by INDATA to compute location and properties 
at shock points and Prandtl-Meyer points caused 
by pressure differences across a splitter wall 

iNew 

subroutines. 
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Name 
DP 01 NT 

STEP 

SSONIC 

BODY 

DPDTH 

CPOINT 

SPACE 

RSET 
SHEAR 1 
SHEAR2 

LPOINT 

DERY 

THSSS 

ZMU 


Page Description 

47 Computes streamline point on old data line from 

point on the free-stream side of a shock at the 
new data line 

48 Locates subsonic regions and computes maximum 

allowable step and calls SPACE to readjust 
points 

51 Computes properties at data points within the 

subsonic region 

57 Computes the wall and center-body shape as a 

function of x 

57 Computes 0 S along the upper bound of the sub- 

sonic region 

57 Computes location and properties of streamline 

point on new data line using positive and nega- 
tive characteristics 

65 Adds points on downstream side of shock, subtracts 

points from free-stream side of shock, and adds 
points to free stream when properties change at 
boundaries 

75 Resets new data into old data line 

76 Computes shear terms for initial profile only 

78 Computes shear terms at new station before RSET 

is called 

80 Computes location and properties of boundary 

streamline point on new data line using a posi- 
tive or negative characteristic 

87 Computes center differences for nonequally spaced 

grid in THSSS 

87 Computes 6 S s along the upper bound of the sub- 

sonic region 

88 Computes Mach angle as a function of Mach number 
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Name 

Page 

Description 

THERMO 

88 

Calculates specific heat Cp derivatives of 

J 

specific heat, and enthalpy Hj of each species 
from polynomial fits in temperature 

TBL 

89 

Performs linear, single-table interpolation 

XM1 

89 

Calculates tan(0 + y) along positive 
characteristic 

XM2 

89 

Calculates tan(0 - y) along negative 
characteristic 

XM3 

89 

Calculates tan 0 along streamline 

HOCUS 

89 

Part of chemistry package 

COEFF 

91 

Sets thermodynamic coefficients as functions of 
temperature 

S2 

94 

Calculates diffusive terms in the energy equation 

S3 

94 

Calculates diffusive terms in the species conser- 
vation equations 

FI 

95 

Gives A-| and B-| coefficients 2 along positive 
or negative characteristic 

F2 

95 

Gives A 2 and B 2 coefficients 2 along positive 
or negative characteristic 

Fit 

95 

Gives A and B 4 coefficients 2 along positive 
or negative characteristic 

HERMAN 

96 

Part of chemistry package 

CLEM 

97 

Part of chemistry package 

SOLT 

98 

Part of chemistry package 

SI 

98 

Calculates diffusive terms in the s-momentum 
equation 


^Coefficients in the P and 0 relationship along the positive 
characteristic • 
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Name 

Page 

Description 

PUNCH 

98 

Punches data deck for restarting program 

INDATA 

100 

Accepts input of constants, reference conditions 
and other initial flow properties 

F 3 

106 

A3 and B3 coefficients along positive or nega 
tive characteristic 

POCUS 

106 

Part of chemistry package 
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DETAILS OF PROGRAM INPUT 

The various input requirements are specified in this appendix. Note that 
pressure is required in U.S. Customary Units of pounds per square foot. 


Initial Program Submittal 
The initial program submittal is as follows: 


Card 

Format 

Columns 

Description 

1 

15 

i 

to 

5 

KKKKK final run station 


15 

6 

to 

10 

LL print interval 

2 

15 

1 

to 

5 

IPUNCH controls punching of data deck to 

restart program. 

0 no deck is punched 

1 a deck is punched 


E10.0 

11 

to 

20 

XSTEP 1.0 unless it is desired to reduce the 
step size Ax calculated by the program; that 
is, if XSTEP= 10 . , then Ax=Ax/10. 


E10.0 

21 

to 

30 

PTZER0 total pressure of the free stream, 

lb/ ft 2 


E10.0 

31 

to 

40 

XE X location of the lip of a conical hydro- 

gen injector (XE, YE, RCR, PT0J, and T0J are 
needed only if a conical injector is used) 


E10.0 

41 

to 

50 

YE Y location of the lip of a conical hydro- 

gen injector 


E10.0 

51 

to 

60 

RCR critical radius for conical injector 


E10.0 

61 

to 

70 

PT0J total pressure of injector flow, lb/ft^ 


E10.0 

71 

to 

80 

T0J total temperature of injector flow, K 

3 

15 

1 

to 

5 

NPTS number of data points in initial pro- 

file ^54 


15 

6 

to 

10 

NPT number of data points in the jet if jet 

is underexpanded and uniform NPT=5 
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Card 

3 


4 


Format 

15 


15 


15 


15 

15 


15 


15 


15 


15 

E10.0 


E10.0 

E10.0 


Columns 
11 to 15 

16 to 20 

21 to 25 

26 to 30 
1 to 5 

6 to 10 

11 to 15 

16 to 20 

21 to 25 
1 to 10 

11 to 20 
21 to 30 


Description 


ITYP Flow Type 

1 nonuniform jet, external flow 

2 uniform jet, external flow 

3 uniform jet, nonuniform external flow 

4 nonuniform jet, uniform external flow 

ISH0CK 

0 no shocks in initial profile 

1 shocks in initial profile 

MMAX maximum number of points to be allowed 
in the profile must be greater than NPTS but 
^54 

KOUNT starting count for program, equals 
zero for initial profile 

JCHEM 

0 frozen flow 

1 finite-rate H2~air chemistry 
IAVE 

0 shear terms not averaged 

1 shear terms averaged across mixing step 

INTACT 

0 balanced pressure between jet and 
external flow 

1 underexpanded jet 

IDIVERG 

0 parallel flow nozzle 

1 divergent conical nozzle 

IDD index of shock field to be scanned, ini- 
tial profile should have IDD ^4 

XJ 

0.0 two-dimensional flow 
1 .0 axisymmetric flow 

EMSUB= 1.01 

RTH jet radius in feet - reference for non- 
dimensionalized lengths 
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Card 

Format 

Columns 

Description 

5 

E10.0 

31 

to 

40 

DELTAY3 radial step size 


E10.0 

41 

to 

50 

YB0T3 lower boundary at initial station 


E10.0 

51 

to 

60 

YTP3 upper boundary at initial station 


E10.0 

61 

to 

70 

CHEMFC number of chemistry steps allowed in 

1 mixing step 


E10.0 

71 

to 

80 

XBP3 x starting location 

6 

E10.0 

1 

to 

10 

RE Reynolds number per foot; the program 

then sets RE=RE*RTH 


E10.0 

10 

to 

20 

PR Prandtl number 


E10.0 

21 

to 

30 

XLE 

Lewis i 

number 

E10.0 

31 

to 

40 

EMINF 

reference Mach number 1 * 

E10.0 

41 

to 

50 

TIN 

reference temperature, 1 * K 

E10.0 

51 

to 

60 

WINF 

reference molecular weight,** lb/lb-mole 

E10.0 

61 

to 

70 

PRES 

reference pressure, 1 * lb/ft 2 

E10.0 

1 

to 

10 

XP0T= 

10. 


E10.0 

11 

to 

20 

XK1 = . 

75E-03 

coefficients for 

E10.0 

21 

to 

30 

XK2= . 

285E-01 

} Ferri-Kleinstein 

E10.0 

31 

to 

40 

XK3= 100 . | 

viscosity model 

E10.0 

41 

to 

50 

XK4=0 

.0 J 


15 

1 

to 

5 

IB0D 

lower 

boundary indicator 





0 

axis, plane of symmetry or pressure 
boundary 





1 

center body 

E10.0 

11 

to 

20 

abod"1 

| coefficients in the center-body 

E10.0 

21 

to 

30 

BBOD 

> shape 

equation Y=A+BX+CX 2 , blank 

E10.0 

31 

to 

40 

CBODj 

| if IBOD=0 

15 

1 

to 

5 

III 

additional number of geometric sections 


required to specify center body S5, this card 
is not required if IB0D=0 


3A11 lengths in program are nondimensionalized by RTH. 
^Free- stream conditions normally used. 
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Card 


Format 


Columns 


Description 


10a to e 


11 


12 


E10.0 

1 

to 

10 

XBOD(a) X starting location for the next 

center-body section 

E10.0 

11 

to 

20 

AAB0D ( a D 

1 coefficients for additional 

E10.0 

21 

to 

30 

BBBOD(a) 

> sections; this card is repeated 

E10.0 

31 

to 

40 

CCB0D(a)j 

[ for each of the III sections 

15 

1 

to 

5 

JB0D upper boundary indicator 


E10.0 

11 

to 

20 

ebodI 

E10.0 

21 

to 

30 

fbod) 

E10.0 

31 

to 

40 

GB0DJ 

15 

1 

to 

5 

JJJ 


13a to e 

E10.0 

1 

to 

10 


E10.0 

11 

to 

20 


E10.0 

21 

to 

30 


E10.0 

31 

to 

40 

14 

15 

1 

to 

5 


15 

6 

to 

10 

15 

15 

1 

to 

5 


no upper boundary or upper pressure 
boundary 

upper physical wall 

coefficients in the wall shape 
equation Y=A+BX+CX 2 , blank if 
JB0D=0 

additional number of geometric sec- 
tions required to specify the wall, ^5; 
this card is not required if JB0D=0 

XWALL(a) X starting location for the 
next wall section 

EEB0D(a)''| coefficients for the additional 
FFBOD(a) \ wall section; this card is 
GGBOD(a) f repeated for each of the 
J JJJ sections 


LWALL'l indices of the next available wall 
LBOD ? or center-body section - both equal 
J one in initial profile 


IPRESS lower pressure boundary indicator 

0 no lower pressure boundary 

1 lower pressure boundary exists 


16 


E10.0 

11 

to 

20 

APRESS 

E10.0 

21 

to 

30 

BPRESS 

E10.0 

31 

to 

40 

CPRESS 

15 

1 

to 

5 

IPRESU 


upper pressure boundary indicator 

0 no upper pressure boundary 

1 upper pressure boundary exists 


E10.0 

11 

to 

20 

APRESUl 

coefficients in the wall pres- 

E10.0 

21 

to 

30 

BPRESU ) 

sure distribution equation 

E10.0 

31 

to 

40 

CPRESU ( 

P/PRES=A+BX+CX 2 , blank if IPRESU=0 


If ISHOCK, the fourth input (columns 16 to 20) on card number three xs zero skip 
cards 17a and b and 18a, b, and c. 


120 



APPENDIX C 


Card Format Columns 




17a 

15 

1 

to 

5 

IS(1) 



15 

6 

to 

10 

IS(2) 



15 

11 

to 

15 

IS (3) 

| 


15 

16 

to 

20 

IS(4) 

1 


15 

76 

to 

80 

IS (16) 

> 

17b 

15 

1 

to 

5 

ISC 17) 



15 

6 

to 

10 

ISC 18) 



15 

11 

to 

15 

ISC 19) 



15 

16 

to 

20 

ISC 20) 

J 


18a 

E10.0 

1 

to 

10 

BETBCO 


E10.0 

11 

to 

20 

BETB C 2 ) 


E10.0 

21 

to 

30 

BETBC3) 


E10.0 

31 

to 

40 

BETB C 4 ) 


E10.0 

41 

to 

50 

BETBC5) 


E10.0 

51 

to 

60 

BETB ( 6 ) 


E10.0 

61 

to 

70 

BETBC7) 


E10.0 

71 

to 

80 

BETB(8) 

18b 

E10.0 

1 

to 

10 

BETBC9) 


E10.0 

11 

to 

20 

BETB (10) 


E10.0 

21 

to 

30 

BETB (11) 


E10.0 

31 

to 

40 

BETBC12) 


E10.0 

i*1 

to 

50 

BETB (13) 


E10.0 

51 

to 

60 

BETB ( 1 4 ) 


E10.0 

61 

to 

70 

BETB (15) 


E10.0 

71 

to 

80 

BETB (16) 

18c 

E10.0 

1 

to 

10 

BETB (17) 


E10.0 

11 

to 

20 

BETB( 18 ) 


E10.0 

21 

to 

30 

BETB(19) 


E10.0 

31 

to 

40 

BETB (20) 


Description 


IS(I) is the upstream data point 
index for the Ith shook. Odd I's 
correspond to up-running shocks, 
and even I's correspond to down- 
running shocks. Only the first IDD 
values of the IS (I) fields are read; 
therefore, card 17b may not be needed. 
Fields IS(1) and IS(2) should be left 
blank since they are used by sub- 
routine EMBED to insert combustion 
generated shocks. 


BETB(I) is the angle in radians 
between the X-axis and the Ith 
shock. If I is odd, BETB(I) is 
positive; if even, BETB(I) is 
negative. BETB(I) fields are 
blank for all IS(I)=0. Only the 
first IDD fields of BETP(I) are 
read; therefore, cards 18b and 18c 
may not be needed. 


Each data point in the initial profile requires two cards of flow properties as 
described below, and each two-card set must be given in order of increasing 
radial distance Y. 
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Card 

Format 

Columns 


Description 

19 

E10.0 

1 

to 10 

Y(I) 

radial location of data point/RTH 


E10.0 

11 

to 20 

P(I) 

pres sure /PRES 


E10.0 

21 

to 30 

TH(I) 

flow angle , radians 


E10.0 

31 

to 40 

EM(I) 

Mach number 


E10.0 

41 

to 50 

T(I) 

temperature/TIN 

20 

Ell .0 

1 

to 11 

ALP ( 1 ) 

mass fraction of H 


E11.0 

12 

to 22 

ALP (2) 

mass fraction of 0 


Ell .0 

23 

to 33 

ALP (3) 

mass fraction of H2O 


Ell .0 

34 

to 44 

ALP (4) 

mass fraction of H2 


Ell .0 

45 

to 55 

ALP ( 5 ) 

mass fraction of O2 


E11.0 

56 

to 66 

ALP ( 6 ) 

mass fraction of OH 


E11.0 

67 

to 77 

ALP ( 7 ) 

mass fraction of N2 


Cards 19 and 20 are repeated NPTS times for the NPTS data points in the profile. 


E10.0 

1 

to 

10 

MASFRAC(I) 

reference 

or 

free-stream 

mass 





fraction of 

H 




E10.0 

11 

to 

20 

MASFRAC(2) 

reference 

or 

free-stream 

mass 





fraction of 

0 




E10.0 

21 

to 

30 

MASFRAC(3) 

reference 

or 

free-stream 

mass 





fraction of H2O 




E10.0 

31 

to 

40 

MASFRAC ( 4 ) 

reference 

or 

free-stream 

mass 





fraction of H2 




E10.0 

41 

to 

50 

MASFRAC(5) 

reference 

or 

free-stream 

mass 





fraction of O2 




E10.0 

51 

to 

60 

MASFRAC(6) 

reference 

or 

free-stream 

mass 





fraction of 

OH 




E10.0 

61 

to 

70 

MASFRAC(7) 

reference 

or 

free-stream 

mass 


fraction of N2 
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Restart Capability 

The program punches an input deck identical in format to that given in the 
section "Initial Program Submittal." This deck is produced at the final sta- 
tion KKKKK if specified by setting IPUNCH=1. Alternately, subroutine CPOINT 
produces a restart deck if the computed back characteristic is outside of the 
bounding streamlines. In the former case, the program can be restarted by 
changing the appropriate variables and resubmitting; that is, increasing the 
final station KKKKK on card one and/or changing the step size XSTEP on card 
two. In the latter case the deck can be used to diagnose the problem and 
restart as above if possible. 


Data Initialization 

Control card provisions must be made to set the core to zero, since a 
large number of variables are not initialized in the program. 
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examples of combustor calculations 

-Cr 

Example A - First variation (fig. 2): 


KKKKK * 3500 

LI 




I PUNCH • 1 

XSTEP - . 

1006+01 

PTZERO * 

.3516+05 IDIVERG * 0 

XE»Y6*RCR#PT04*T0j 0. 

0. 

0. 

0. 0. 

NPTS • 18 

NPT • 5 

ITYP - 2 

ISHOCK 

* 0 MMAX • 54 

JCHEM • 1 

IAV6 « 0 

INTACT - 

0 



XJ • O. EMSUB * .101E+01 RTH - .2506-01 DELTAY - .5006+00 YBOT * 0. YTP 

RE « .672E+06 PR » .100E+01 XIE « .1006+01 EMINF » .1906+01 TIN • .214E+04 WINF • 
XPOT ■ • 100E+02 XKl « .7506-03 X K 2 * .285E-01 XK3 * .100E+03 XK4 * 0. 

IBOO « 0 ABOD * 0. BBOO • 0. CBOD * 0. 

J BOD - 1 EBOO * .7506+01 F BOD * 0. GBOD « 0. 


J J J- 5 


XWALL>EEBQD * FFBDDjGGBOD 
« 920E+01 .7506+01 .2136 + 00 0. 

.1426+02 .6566+01 .6996-01 0. 

. 1 92E+02 • 891 E + 01 .2136 + 00 0. 


• 47 2E + 02 . 

149E+02 0. 


0. 

.7756+03 . 

149E+02 0. 


0. 

LWALL* 1 

L80D* 

1 


IPRESS ■ 0 

APRESS » 0. 


8PRESS * 0. 


CPRESS * 0. 


IPRESU * 0 APRESU * 0. 


8PR6SU - 0. 


CPRESU - 0. 


MAS FR AC ( 1). 
MASFR AC ( 2)* 
MASFR AC ( 3)* 
MAS FR AC ( 4)« 
M AS FR AC ( 5 ) ■ 
MASFRAC ( 6 ) * 
MASFRAC1 71* 


• 68640006-05 
.35290006-03 
. 16940006+00 
.91770006-02 
.67580006-01 
.33430006-02 
•7501400E+00 


• .750E + 01 CHE MFC - .500E+01 

2326+02 PRES « .1226+04 
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PROGRAM VIS-CHAR 


fc* 


AND 


WITH 

EMBEDDED SUBSONIC 

SHOCK WAVES 
FINITE RATE H2-ATR 


FLOW 


CHEMISTRY 


TYPE OF FLOW IS TWO DIMENSIONAL 
CHEMISTRY IS FINITE RATE 

JET OR NOZZLE RADIUS (RTH) « .25000E-01 FT. 


REFERENCE CONDITIONS 


MACH NO. (EMINF) * .19030E+01 

VELOCITY (UIN ) - .61561E+04 FT/SEC 

TEMPERATURE (TIN) - .21<»<rOE + (H DEGREES K 

PRESSURE (PRES) « .12212E+04 LB/FT**2 

DENSITY (RHOINF) « .14767E-03 SLUGS/FT**3 

FROZEN SPECIFIC HEAT RATIO (GAMINF) ■ .12654E+01 

MOLECULAR WEIGHT (WTNF) » .23223E+02 

REYNOLDS NUMBER (RE) » .16799E+05 

PRANDTL NUMBER' ( PR ) * .lOOOOE+Ol 

LEWIS NUMBER ( XLE ) « .lOOOOE+Ol 


OUTPUT HEADINGS 


X - X/RTH 

Y - Y/RTH 

Q - VELOCITY/UIN 

T - TEMPERATURE/TIN 

P - PRESSURE/PPES 

TH - FLOW DEFLECTION (RADIANS) 

EM - MACH NUMBER 

RHO - DENS ITY/RHOINF 

GAM - SPECIFIC HEAT 

XMASS - NON-DIMENSIONAL MASS FLOW 

PHI - EQUIVALENCE RATIO 

W - MOLECULAR WEIGHT 


IV) 

vn 
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MASS FRACTIONS 
ALP ( 1 ) - H 
ALP(2f - 0 
A L P ( 3 ) - H20 
ALPU) - H2 
AL P ( 5 ) - 02 
ALP (6) - OH 
AL P ( 7 ) - N2 



KOUNT- 


0 


X • .9182 OE +01 

VISC0SITY(LB*SEC/FT**2) - .13412E-05 .13412E-05 


• 1 34 1 2E 

-05 .134126- 

•05 • 13412E- 

05 .134126- 

•05 .134126 

• 1 34 1 2E 

-05 • 134126- 

■05 . 134126- 

05 .134126- 

■05 

PT. 

Y 

Q 

T 

P 

1 

0 . 

• 10001E+01 

. 100005+01 

• 1 OOOOE +0 1 

2 

• 50000E + 00 

. 10001E + 01 

.100006+01 

• 1 OOOOE +01 

3 

• 10000E+01 

• 10001E+01 

.100006+01 

• 10000E +01 

4 

. 15 000E + 01 

• 1 OOCIE + Ol 

. 10000E + 01 

. 10000E +01 

5 

.20000E+01 

• 10001E+01 

• 10000E + 01 

. 10000E +01 

6 

•25000E+01 

.100016+01 

.100006+01 

.100006+01 

7 

. 30000E+01 

.100016+01 

• 1 0000 E +01 

.100006+01 

8 

• 35000E + 01 

• 10001E+01 

• 10000E+01 

.100006+01 

9 

•40000E+01 

.100016+01 

• 10000E+01 

• 10000E +01 

10 

• 45000E+01 

• 1 0001E +01 

• 10000E +01 

• 10000E +01 

11 

• 50000E +01 

•10001E+01 

■ 10000E +01 

• 1 OOOOE +0 1 

12 

• 55 OOOE + Ol 

.100016+01 

. 10000E + 01 

.100006+01 

13 

.60000E+01 

• 10001E+01 

. 10000E +01 

• 10000E +01 

14 

• 65000E + 01 

.100016+01 

• 10000E +01 

• 10000E +01 

15 

.67500E+01 

. 100C1E+01 

. 10000E + 01 

• 10000E +01 

16 

.700006+01 

• 10001E + 01 

• 10000E + 01 

. 10000E +01 

17 

.725006+01 

• 10001 E + 01 

. 100006+01 

. 10000E +01 

18 

• 75000E + 01 

• 10001E + 01 

• 10000E +01 

• 10000E +01 


PT. 

ALP(l) 

A L P ( 2 ) 

AL P ( 3 ) 

AL P ( 4 ) 

1 

• 68640E-05 

.35 2 90E-03 

. 1 694 OE +00 

• 91770E-02 

2 

.686406-05 

.352906-03 

•16940E+00 

.917706-02 

3 

•68640E-05 

• 352 90E-0 3 

• 16940E +00 

•91770E-02 

4 

•68640E-05 

.352906-03 

.16940E+00 

• 91770E-02 

5 

• 686 40E-05 

. 35 290E-03 

. 169406 + 00 

• 9 1770E-02 

6 

• 68640E-05 

.352906-03 

• 16940E + 00 

• 91770E-02 

7 

•68640E-05 

.352906-03 

• 169 40E + 00 

. 9 1 770E-02 

8 

• 68640E— 05 

.352906-03 

• 16940E + 00 

• 91770E-02 

9 

•68640E-05 

.352906-03 

.169406+00 

.917706-02 

10 

• 68640E-05 

.352906-03 

. 16940E+00 

• 9 1770E-02 

11 

.686406-05 

.352906-03 

• 16940E + 00 

. 9 1770E-02 

12 

.686406-05 

• 3 52 90E-03 

. 1 6940 E +00 

• 91770E-02 

13 

.686406-05 

. 35 290E-03 

. 16940E + 00 

.917706-02 

14 

• 68640E-05 

.352906-03 

. 16940E + 00 

•91770E-02 

15 

•68640E-05 

• 35 2 90E-03 

.169406+00 

•91770E-02 

16 

.686406-05 

• 35 290E-03 

. 16940E + 00 

.917706-02 

17 

.686406-05 

• 35290E-03 

.169406+00 

.917706-02 


rv) 


26-05 -13412E-05 .13412E-05 .13412E-05 .13412E-05 

05 • 1 341 2E-05 • 1 341 2E-05 



EM RHO 

• 19030E + 01 . 99980E +00 

• 1 9030E+01 .99980E+00 

• 1 9030E+01 .999806+00 

.19030E+01 • 99980E+00 

• 1 9030E + 01 • 99980E +00 

• 19030E+01 • 99980E+00 

• 1 9030E + 01 • 99980E + 00 

• 1 9030E+0 1 • 99980E +00 

• 19030E+0 1 . 99980E+00 

• 1 9030E + 0 1 • 99980F +00 

» 1 9030E + 01 • 9998 OE + 00 

. 1 9030E + 01 • 99980E +00 

• 1 9030E+0 1 . 99980E +00 

• 1 9030E + 01 • 99980E + 00 

. 19030E+01 • 99980E+00 

• l 9030E + 01 • 99980E +00 

• 1 903 OE + 0 1 • 99980E + 00 

• 1 9030E + 0 1 • 99980E +00 


GAM PITOT 

• 12655E +01 * 168 1 7E +00 

• 12655E+01 • 168 1 7E +00 

• 12655E + 0 1 . 168175 +00 

• 12655E + 01 . 168175 +00 

• 12655E+01 .16817E +00 

• 12655E + 01 .168175 +00 

• 12655E + 01 . 168175 +00 

• 12655E + 01 .16817E+QQ 

. 12655E +01 .168175 +00 

• 12655E+01 .16817E +00 

• 12655E + 0 1 .168175 +00 

.126555+01 .168175+00 

.12655E+01 .168176 +00 

. 12655E + 01 .16817E+00 

. 12655E + 01 . 168 1 7£ +00 

• 12655E + 01 .168175 +00 

• 12655E+01 .16817E +00 

.126556+01 .16817E +00 


AL P ( 5 ) 
.67580E-01 
• 67580E-01 
• 67580E-01 
• 67580E-01 
. 675 80E-01 

• 675 80E-01 
•67580E-01 
. 67580E-01 
• 675806-01 

• 6 75 8 06-01 
• 67580E-01 
• 67580E-01 

• 675 80E-01 
.67580E-01 

• 675 80E-01 
• 675806-01 
•67580E-01 


ALP(6) 

• 3 3430E-02 

• 3 3430E-02 

• 3 3430E-02 

• 3 34306-02 
.334306-02 
. 3 3430E-02 
.334306-02 

• 3 34306-02 

• 3 3430E-02 

• 3 3430E-02 

• 3 3430E-02 

• 3 343 0E-02 

• 3 3430E-02 

• 3 34306-02 
. 3 3430E-02 
. 3 3430E-02 
• 334306-02 


AL P C 7) 

• 750146+00 
. 75014E +00 

• 75014E +00 

• 75014E + 00 

• 750146 + 00 
•750146 +00 
•750146+00 
•750146+00 
•750146+00 

• 750146 +00 

• 75014E +00 
•750146 + 00 

• 75014E +00 
•750146+00 

• 75 0146 + 00 

• 75014E + 00 

• 75014E +00 


PHI 

• 1 0001E + 0 1 
. 10001E+01 
. 10001E +01 
• 10001E+01 
. 10001E+01 

• 10001E +01 

• 10001E + 01 
• 10001E+01 
• 10001E+01 

• 10001E + 0 1 
. 10001 E +01 
• 10001E+01 
. 10001E +0 1 

• 10001E +01 
. 10001E+0 1 
. 10001E+01 

• 1 0001E +01 


W 

.23218E +02 
.232188 +02 
.2 3 2 1 85 + 02 
. 23218E+02 
.23218E +02 
.2 3 2 1 86 + 02 
.2 3 2 1 85 + 02 

• 23218E+02 

• 2321 8E + 02 
.232186 +02 
.2321 86 +02 
.23218E +02 
.23218E+02 

• 2 32 1 8£ +02 

• 2321 8E + 02 

• 23218E+02 
.2 3218E +02 
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18 .686*0E-05 .35290E-03 .16940E+00 .91770E-02 .67580E-01 .33430E-02 .75<mE + 0Q •10001E+01 .23218E+02 

00 ********* 

OISCRET EXPANSION OF DNU * .209E+00HAS BEEN INSERTEO AT .920E+01 

********* 

A SHOCK WAVE BE TB- -.371E400HAS BEEN INSERTED AT X- . 1<>2E + 02WI TH A TURNING ANGIE- .lAOE+OO 

********* 

DISCRET EXPANSION OF DNU- .140E+00HAS BEEN INSERTED AT .192E+02 

********* 

SHOCK WAVE B E TB ( 6)HAS REFLECTED FROM THE WALL AND HAS BECOME BETB ( 7) 
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KOUNT * 3500 


X • .471156+02 

SHOCK TYPE 7 BETA * .5326+00 

VISC0SITY<LB*SEC/FT**2)- .13179E-05 .13262E-05 .13374E-05 .13511E-05 .136666-05 .13835E-05 .140UE-Q5 


•141886 

-05 • 14361 E- 

’05 • 145 22 E- 

■05 .146596- 

05 *147526- 

05 • 14762E- 

•05 .14618 6- 

-05 



•14179E 

-05 • 12729E- 

’05 . 12861E- 

•05 .129306- 

•05 .129916- 

05 .13020E- 

•05 • 1 3023 E- 

-05 



• 12998E 

-05 .129456-05 .12944E- 

•05 • 1 2 942E- 

05 






PT. 

Y 

a 

T 

P 

TH 

EM 

RHO 

GAM 

PITOT 

1 

0. 

.11654E+01 

•96858E+00 

• 40707E+00 

0 . 

.228676+01 

.430756+00 

• 12 595 E +01 

.951946-01 

2 

.B4500E+00 

•11705 E+01 

• 964 89E +00 

.40818E+00 

• 14091 E-01 

• 2 3006E + 01 

.433476+00 

. 12 597E + 0 1 

.96527E-01 

3 

. 16204E+01 

• 1 1 724 E +0 1 

.96339E+00 

• 4 1 107E + 00 

• 27036E-01 

.230586+01 

• 43714E + 00 

. 12 599E + 0 1 

.975766-01 

4 

• 2 3409E + 0 1 

.11724E+01 

• 963 3 4E + 00 

• 41 5 30E +00 

• 39 12 1 E-01 

• 2 305 6E +0 1 

• 44 159E +00 

.125996+01 

.984946-01 

5 

• 301 58E +01 

. 1 17 12E + 0 1 

• 964 16E+00 

• 4205 1 E +0 0 

•50573E-01 

.230216+01 

.446666+00 

•12599E+01 

• 993 5 7E -01 

6 

•36526E+01 

•11694E+01 

• 965 4 6E +00 

. 42 63 5 E +00 

. 61 5 88 E-0 1 

.22968E+01 

• 4521 9E + 00 

.125996+01 

. 100196 +00 

7 

•42571E+01 

• 1 16 71 E +0 1 

. 967 05 E +00 

• 4 3 2 56 E +00 

.7231 9 E-0 1 

• 2 2903E +01 

.457936+00 

.125996+01 

• 1009 9E +00 

8 

•48365E+01 

• 1 1 6 47E + 0 1 

• 968 83E+00 

.43892E+00 

.829126-01 

• 2 28 3 3E + 0 1 

• 46 372E + 00 

• 1 2598E + 01 

. 101736 +00 

9 

.5 395 3E + 01 

•1162 2E +01 

• 97065E+00 

• 445 16 E +00 

• 93406E-01 

• 2 2761E + 0 1 

.469356+00 

.125986+01 

• 102 4 IE +00 

10 

.59352E+01 

•115 98 E+01 

• 972 2 1 E +00 

• 4 50 96 E +00 

• 10371 E +00 

• 2 2694E +0 1 

•47461E+00 

• 12 598E + 0 1 

.102986 +00 

11 

• 64 608E + 01 

•11578E+01 

•97333E+00 

•45585E+00 

.11363E+00 

• 2 263 9E + 0 1 

• 479 1 IE + 00 

.125986+01 

• 1034 3E +00 

12 

• 69747E + 0 1 

•115 64 E+01 

• 973 77E +00 

. 4 5903 E +00 

• 12269E+00 

• 2 2604E + 01 

• 48 2 1 3E + 00 

. 12 598E +01 

.103656 +00 

13 

• 74 783E + 01 

•115 62 E+01 

• 97279 E + 00 

• 4590 2 E +00 

• 1 2989E + 00 

.226086+01 

• 48 250E + 00 

.125996+01 

. 103526 +00 

14 

• 79736E + 0 1 

•11584E+01 

• 969 2 4E + 00 

• 45 304E +00 

.13336E+00 

.226886+01 

.477866+00 

.126026+01 

.102766 +00 

15 

•84683E+01 

•11651E+01 

• 960 8 3 E +00 

• 43 58 4E +00 

. 1 2942 E + 00 

.229126+01 

• 46365E +00 

•12607E+01 

.100796 +00 

16 

• 93 494E + 01 

. 1 1 8 76E + 0 1 

.93389E+00 

•38039E+00 

.10403E+00 

• 2 366 OE + 0 1 

•41593E+00 

• 12625E + 01 

.9 3 9 5 66 - 01 

17 

•93494E+01 

• 1 19 39E + 0 1 

•92659E+00 

. 3 663 1 E +00 

.926296-01 

• 2 3 885E + 0 1 

• 40395E +00 

. 12627E + 01 

.92283E-01 

18 

• 10056E + 02 

•11923E+01 

. 928 42 E +00 

• 36902 E +00 

•10725E+00 

.238306+01 

. 4061 2E +00 

.126266+01 

.923106-01 

19 

• 10967E + 02 

• 1 1 909E+0 1 

• 92866E+00 

• 37093E+00 

. 12648E + 00 

.237956+01 

.408016+00 

• 12626E+01 

.921496-01 

20 

.118858+02 

. 11899E+01 

•92818E+00 

.371676+00 

• 14600E + 00 

• 2 3776E + 0 1 

. 40892E +00 

.126276+01 

• 9175 It -01 

21 

• 12871E+02 

• 1 1 8 92E +01 

• 926 84 E +00 

. 371 36E +00 

• 16709E + 00 

.237736+01 

. 40901E + 00 

. 12629E+01 

• 91 09 6E -01 

22 

.13844E+02 

•11887E+01 

• 92507E +00 

« 37009E + 00 

• 18795E+00 

. 2 3780E + 0 1 

•40824E+00 

« 12632E +0 1 

.902196-01 

23 

. 14810E + 02 

.11 882E + 01 

•92332E+00 

•36801E+00 

• 20867E+00 

.2 3786E + 0 1 

• 40656E+00 

•12634E+01 

.890736-01 

24 

•14824E+02 

•11882E+01 

• 923 31 E +00 

• 36797 E +00 

.208966+00 

.237866+01 

.406536+00 

.126346+01 

• 8905 5E -01 

25 

• 1 48 45E + 02 

. 11882E+01 

• 92331E+00 

. 36 792E + 00 

• 20944E+00 

• 2 378 6E + 01 

.406476+00 

. 12634E +01 

.890266-01 


PT. ALP(l) ALP ( 2 ) ALP C 3 ) ALP(4) ALP ( 5 ) ALP(6) ALP ( 7 ) PHI W 

1 .535336-03 .245266-02 .21925E+00 .28180E-02 .17205E-01 .760266-02 .75014E+00 .100016+01 .23802E+02 

2 .54401E-03 .248216-02 .21908E+00 .2 8291E-02 .17343E-01 .757866-02 . 750146 + 00 .10001E+01 . 23796E+0Z 

3 • 55 020E-03 .250686-02 .218936+00 .28395E-02 .17447E-01 .758646-02 .75014E+00 .lOOOlfc+Ol .23792E+02 

4 • 55486E-03 • 2 5 2 89E-02 .218786+00 .28499E-02 .17530E-01 .761636-02 .75014E+00 .10001E+01 .23788E+02 

5 « 55 8846-03 .25509E-02 .218626+00 .2860BE-02 .17605E-01 .766156-02 .750146+00 .10001E+01 .23784E+02 

6 • 562 0 IE-03 .25 747E-0 2 .21845E+00 .28728E-02 .17682E-01 .77178E-02 .750146+00 .10001E+01 .23779E+02 

7 • 56674 E—0 3 .25993E-02 .218276+00 .20854E-O2 .17758E-01 .77808E-02 .750148 + 00 . 10001E + 01 . 23775E+02 


ro 

vO 
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6 

• 5 7048E-03 

• 26 2 37E-02 

• 218 09 E + 00 

. 20 98 OE -02 

9 

•57409E-03 

.264776-02 

.217916+00 

.291046-02 

10 

.578466-03 

• 2 6743E— 02 

• 21771E +00 

.292406-02 

11 

•58344E— 03 

.270216-02 

.217516+00 

• 29380E-02 

12 

.580666-03 

.272 78E— 02 

.217336+00 

.295116-02 

13 

.595046-03 

• 275 29E-02 

•21715E+00 

• 296386-02 

14 

.603256-03 

• 27758E-02 

.217006+00 

.297436-02 

15 

•61446E-03 

.27947E-02 

.216956+00 

• 2 9776 E-02 

16 

• 644 46E— 03 

• 2 84 62 E— 02 

.217036+00 

.296336-02 

17 

.644466-03 

.284626-02 

.217036+00 

. 2 963 3 E-02 

18 

•65029E-03 

.204986-02 

.217076+00 

.295896-02 

19 

.65 75 7E— 03 

• 288 46E-02 

. 216856+00 

.297386-02 

20 

• 66655E-03 

• 292 43E-02 

• 21661 E +00 

• 29899E-02 

21 

.678716-03 

• 297 49E — 02 

.216316+00 

.300956-02 

22 

• 69140E— 03 

• 30260E-02 

.216016+00 

.302866-02 

23 

.703696-03 

.307506-02 

• 21573E+00 

.304666-02 

24 

•70372E-03 

.307516-02 

. 21573E + 00 

. 3046 7E -02 

25 

.703756-03 

.307526-02 

.215736+00 

. 30467E -02 


.17833E-01 
.179056-01 
.179906-01 
.180856-01 
•18185E-01 
. 18 304E-01 

• 184486-01 

• 1 8 608 E — 01 
.188826-01 
.188826-01 

• 1 8940 E-01 
.190596-01 
.192016-01 
. 193876-01 
.195776-01 

• 19758E-01 
. 197596-01 
.197596-01 


.784696-02 

.791346-02 

.797866-02 

.803706-02 

.807976-02 

.809436-02 

.805626-02 

.792006-02 

.749266-02 

.749266-02 

• 7 38 7 16-02 
.743306-02 
. 7 4703E-02 

• 7 503 5E— 02 
.752786-02 
.754936-02 
.754936-02 
.754936-02 


.750146+00 

.750146+00 

• 7501 4E + 00 
•75014E+00 
.750146+00 
.750146 + 00 
.750146+00 
.750146+00 
.750146+00 
. 75014E+00 
. 750146+00 
.75014E+00 
• 75014E+00 
. 75014E +00 
.750146+00 
.750146+00 

• 75014E + 00 
.750146+00 


• 10001E+01 
. 10001E+01 
.100016+01 
• 10001E+01 

• 10001E +01 

• 10001E +01 
.100016+01 
.100016+01 
• L0001E+01 

• 1 0001 E + 01 

• 1 000 IE + 0 1 
« 10001E +01 
. 10001E+Q1 
.100016+01 
.100016+01 
.100016+01 

• 10001E +01 
.100016+01 


• 2377 IE +02 
.237666 +02 
.237626 +02 

• 2375 7E +02 
.237526 +02 
.237476 +02 
.237426 +02 
.23737E +02 
.237146 +02 
.2 3 7 3 06 + 02 

• 2372 8E + 02 
.237226 +02 
.23715E +02 
.237066 +02 
.236976 +02 
. 23689E +02 
.236896 +02 
.2 3 6 8 96 + 02 
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Example B - Second variation (fig. 3): 


KKKKK • 2161 LL -*♦* 

IPUNCH • 1 XSTEP - • 100E +01 PTZERO - .351E + 05 IDIVERG * 0 IDO * 4 


XE,YE,RCR 

# PTOJ# TO J 0. 

0. 

0. 0. 


0. 


NPTS - 18 

NPT - 5 

ITYP - 2 

ISHOCK ■ 0 

MM AX 

* 54 


JCHEM « 1 

IAVE » 0 

INTACT » 0 





XJ - 0. 

EMSUB ■ 

• 101E+01 RTH 

« • 250E-01 

DEITAY 

- *5 OOE + OO YBOT « 0, 

YTP - • 750E+01 CHEMFC • .500E+01 

RE - .672E+06 PR • . 

100E + 01 XLE ■ 

.lOOE+Ol EMINF ■ 

* 190E+01 TIN « • 2 14E+04 

WINF * *2 32E + 02 PRES • .122E+Q4 

XPOT • . 

100E+02 XK1 - 

• 750E-03 XK2 

■ • 285E-01 

XK3 ■ 

• 100E+03 XK4 • 0. 


IBOD • 0 

ABOD • 0. 

BBOD « 0. 

CBOD 

• 0# 




J BOD ■ 1 EBOD ■ .750E+01 F BOD « 0. GBOD « 0. 

J.JJ- 5 

XWALL#EEBOD#FFBOD*GGBOD 


• 920£« , 01 .750E+01 .213E+00 0. 

• 142E+02 • 856E + 01 .105E+00 0. 

• 192E+02 .909E+01 .213E+00 0. 

• 472E+02 • 150E+02 0. 0. 

• 775E+03 • 150E *02 0. 0. 


LHALL- 

1 

IBOD- 1 



IPRESS ■ 

0 

APRESS ■ 0. 

BPRESS • 0. 

CPRESS • 0 

TPRESU - 

0 

APRESU ■ 0* 

BPRESU - 0. 

CPRESU ■ 0 

*AS F R AC ( 

1>» 

• 6864000E-05 



MAS FRAC < 

2 ) • 

• 3529000E-03 



MAS FR AC ( 

3 )■ 

•1694000E+00 



MAS FRAC ( 

4>« 

• 9177000E-02 



MAS FRAC ( 

5 >» 

• 6758000E-01 



MAS FRAC ( 

6) ■ 

• 3343000E-02 



MAS FRAC ( 

7). 

.7501400E+00 




U> 
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uo 

ro 


PROGRAM VIS-CHAR 
WITH 

EMBEDDED SUBSONIC FLOW 


SHOCK WAVES 

AND FINITE RATE H2-AIR CHEMISTRY 


TYPE OF FLOW IS TWO DIMENSIONAL 
CHEMISTRY IS FINITE RATE 

JET OR NOZZLE RADIUS ( RTH ) - .25000E-01 FT, 


REFERENCE CONDITIONS 

MACH NO, (EMINF) ■ ,19030E+01 

VELOCITY tUINl » .61561E+0A FT/SEC 

TEMPERATURE ( TIN I - ,21AAOE+OA DEGREES K 

PRESSURE (PRES) - ,12212E*04 LB /F T A*2 

DENSITY (RHOINF) - .14767E-03 SLUGS/FT**3 

FROZEN SPECIFIC HEAT RATIO ( GAMINF ) • .1265AE+01 

MOLECULAR WEIGHT (WINF) - .23223E+02 

REYNOLDS NUMBER (RE) ■ .16799E+05 

PRANDTL NUMBER (PR) ■ .lOOOOE+Ol 

LEWIS NUMBER ( XLE ) - .lOOOOE+Ol 


OUTPUT HEADINGS 


X - X/RTH 

Y - Y/RTH 

Q - VELOCITY/UIN 

T - TEMPERATURE/TIN 

P - PRESSURE/PRES 

TH - FLOW DEFLECTION (RADIANS) 

EM - MACH NUMBER 

RHO - DENSITY/RHOINF 

GAM - SPECIFIC HEAT 

XMASS - NON-DIMENSIONAL MASS FLOW 

PHI - EQUIVALENCE RATIO 

W - MOLECULAR WEIGHT 
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NASS FRACTIONS 
At P Cl I - H 
ALPC2J - 0 
ALP ( 3 ) - H20 
ALPU) - H2 
ALPC5) - 02 
ALPC6) - OH 
ALPC7I - N2 


U) 

LO 
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KOUNT- 0 
X • •91820E+01 

VISCOSITYCLB* SEC/FT** 2)» .13812E-05 .13812E-05 .13912E-05 .13912E-05 .13912E-05 .13912E-05 .13412E-05 

.13912E-05 .13812E-05 .13812E-05 .13*126-05 .13*126-05 .13*126-05 .13*126-05 

•13*12E-05 • 13*126-05 .13*126-05 ,13*12E-05 


PT. 

Y 

0 

T 

P 

TH 

EM 

RHQ 

GAM 

pitot 

1 

0. 

• 100016+01 

• 100006*01 

• 10000E >01 

0. 

• 1 903 OE>01 

« 99980E>00 

.126556*01 

.160176+00 

2 

•50000E+00 

• 100016+01 

• 10000E +01 

• 10000E+01 

0. 

•19030E>01 

•99980E*00 

•12655E+01 

.168176*00 

3 

• 100006*01 

.ioooie+oi 

.100006+01 

« 10000E>01 

0. 

• 1 9030E*01 

.999806*00 

. 12655E+01 

.168176*00 

4 

• 150006*01 

• 100016+01 

• 100006*01 

• 10000E >01 

0. 

•19030E>01 

.999806*00 

•12655E+01 

.168176*00 

5 

•200006*01 

• 10001E+01 

• 100006*01 

• 10000E+01 

0. 

•1 9030E>01 

• 99980E *00 

.126556+01 

.168176*00 

6 

•250006*01 

• 100016+01 

.100006*01 

• 10000E *01 

0. 

• 1 903 0E*0 1 

.999806*00 

•12655E+01 

.168176+00 

7 

• 300006*01 

• 100016+01 

• 10000E +01 

• 10000E>01 

0. 

• 1 9030E*01 

•99980E*00 

.126556*01 

•168176+00 

8 

• 35000E + 01 

.100016+01 

• 10000E ♦01 

•10000E>01 

0. 

•19030E+01 

.999806*00 

•12655E+01 

. 16817E + 00 

9 

•400006*01 

« 100016*01 

.100006*01 

• 10000E>01 

0. 

• 19030€>01 

•99980E+00 

.126556*01 

.168176*00 

10 

• 45 000E+01 

• 100016+01 

• 100006+01 

• 10000E >01 

0. 

•19030E>01 

.999806*00 

.126556*01 

• 16817E+00 

11 

• 50000E *01 

• 100016*01 

.lOOOOE+Ol 

•10000E>01 

0. 

•19030E*01 

.999806*00 

• 12655E+01 

•168176*00 

12 

• 550006*01 

• 10001E + 01 

• 10000E 4-01 

• 10000E >01 

0. 

•19030E>01 

• 99980E>00 

•126556*01 

•168176+00 

13 

• 60000E *01 

• 100016+01 

• 10000E+01 

• 10000E >01 

0. 

.190306*01 

.999806*00 

.126556+01 

.168176+00 

14 

• 65000E *01 

• 100016+01 

• 10000E+01 

• 10000E*01 

0. 

.190306*01 

.999806*00 

.126556+01 

.168176*00 

15 

• 675 006*01 

.100016*01 

. 10000E >01 

• 100006*01 

0. 

•190306*01 

.999606*00 

. 12655E+01 

.168176+00 

16 

• 700006*01 

• 100016+01 

• 10000E >01 

• 10000E>01 

0. 

.1 9030E+01 

• 999806*00 

•12655E+01 

.168176*00 

17 

.72500E+01 

• 100016+01 

• 10000E >01 

• 10000E>01 

0. 

•19030E*01 

.999806*00 

.126556+01 

.168176+00 

18 

•75000E+01 

• 10001E+01 

• 10000E>01 

• 10000E >01 

0. 

.190306*01 

•99980E*00 

.126556+01 

•168176+00 


PT. 

ALP ( 1 ) 

ALP ( 2 ) 

ALP i 3 ) 

ALP( 4 ) 

ALP (5 ) 

ALP ( 6 ) 

ALPC7) 

PHI 

w 

1 

.686406-05 

.352906-03 

. 16940E+00 

.917706-02 

•67580E-01 

. 3 3430E-02 

.750146*00 

• 10001E*01 

•232186+02 

2 

.686406-05 

• 352 90E-03 

• 1 694 OE *00 

.917706-02 

.675806-01 

. 3 3430E-02 

• 75014E *00 

• 10001E*01 

•232186+02 

3 

.68640E-05 

•35290E— 03 

.169406*00 

•91770E-02 

.675806-01 

•33430E— 02 

.750146*00 

.100016+01 

.232186+0 2 

4 

•68640E-05 

.352906-03 

• 169 40E *00 

•91770E-02 

.675806-01 

•33430E-02 

« 750146*00 

•100016+01 

.232186+02 

5 

.686406-05 

• 35290E-03 

.169406*00 

.917706-02 

.675806-01 

.334306-02 

.750146*00 

. 100016+01 

•232186+02 

6 

.68640E-05 

• 35290E-03 

. 16940E *00 

. 91770E-02 

•67580E-01 

.334306-02 

•75014E*00 

•10001E+01 

.232186+02 

7 

.686406-05 

•35290E-03 

.169406*00 

.917706-02 

.675806-01 

.334306-02 

.750146*00 

.100016+01 

•232186+02 

8 

• 6064OE— 05 

.352906-03 

.169406*00 

•91770E-02 

.675806-01 

.334306-02 

. 75014E *00 

.100016+01 

•232186+02 

9 

•68640E-05 

.352906-03 

. 16940E *00 

.917706-02 

.675806-01 

.334306-02 

•75014E+00 

. 100016+01 

•232166+02 

10 

.686406-05 

•35290E-03 

.169406*00 

.917706-02 

.675806-01 

• 3 3430E-02 

. 75014E *00 

•100Q1E+01 

.232186*02 

11 

•68640E-05 

.352906-03 

.169406*00 

. 91770E-02 

.675006-01 

.334306-02 

•75014E*00 

.100016+01 

•23218E*02 

12 

.686406-05 

.352906-03 

.169406*00 

.917706-02 

. 67580E— 01 

. 3 3430E— 02 

.750146*00 

.100016+01 

.232186+02 

13 

.686406-05 

.352906-03 

.169406*00 

• 91770E-02 

.675806-01 

.334306-02 

.750146*00 

.100016+01 

•23216E+02 

14 

.686406-05 

• 35290E— 03 

. 16940E *00 

.917706-02 

•67580E— 01 

.334306-02 

.750146*00 

.100016+01 

.232186+02 

15 

.686406-05 

.352906-03 

.169406*00 

•91770E-02 

•67580E-01 

.334306-02 

.750146*00 

•100016+01 

•23218E+02 

16 

.686406-05 

.352906-03 

. 169 40E ♦ 00 

.917706-02 

•67580E-01 

.334306-02 

.750146*00 

. 100016+01 

.232186*02 

17 

.686406-05 

• 35290E-03 

. 16940E *00 

• 91770 E-02 

•67580E-01 

.334306-02 

.750146*00 

• 1 00016 + 01 

•23218E+02 
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18 • 68640E-05 • 3 52 908*03 .16940E+00 .91770E-02 .67580E-01 .33A30E-02 ^SOl^E + OO .10001E+01 

********* 

OISCRET EXPANSION OF DNU- .209E+00HAS BEEN INSERTED AT .920E+01 

********* 

A SHOCK WAVE BETB- -.3A1E+00HAS BEEN INSERTED AT X- . 1 42E+02 WI TH A TURNING ANGLE- .105E+00 

********* 

DISCRET EXPANSION OF DNU- .105E+OOHAS BEEN INSERTED AT .192E+02 


• 232I8E+02 
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LO 

C* 


KOUNT- 2161 
X • .28565E+02 

SHOCK TYPE 6 

VI5COSITYU.B *$ EC/FT ♦♦2) - 


BETA « 
• 1 3236E— 05 


-.5176+00 
• 13232E-05 


• 13219E-05 .13189E-05 .14003E-05 .13186E-05 .12625E-05 


• 12 306E-05 • 12109E— 05 

•11971E- 

05 • 118 62E-05 

* 11773E- 

05 

•11710E-05 

•11686E-05 




• 11707E-05 .11766E-05 

• 11851 E- 

05 • 1 1 927E-05 

.119646- 

05 

• 119646-05 

• 1 1964E— 0 5 




PT. Y 

Q 

T 

P 


TH 

EM 

RHO 

GAM 

PITOT 

1 0. 

• 11 4 27E >01 

.97626E+00 

• 50450E +00 

0 

• 

•22279E+01 

.527426+00 

• 12603E+01 

•11251E+00 

2 .81231E+00 

.11427E+01 

• 97607E+00 

.504266+00 


• 31 4686-01 

• 2228 2E+01 

•52725E+00 

•12603E+01 

• U238E+00 

3 • 16 259E ♦01 

.U429E + 01 

• 975 10E ♦00 

• 50335E+00 


.628476-01 

.22294E+01 

• 52675E+00 

• 12604E +01 

• 111986+00 

4 .24985E+01 

•11436E+01 

•97136E+00 

• 50051 E +00 


.961006-01 

• 2 234 IE +0 1 

.52554E+00 

•12607E+01 

•111266+00 

5 • 24985E + 01 

• 103 77E + Q1 

• 10821E+01 

•83117E+00 

- 

• 692 46E— 01 

•19038E+0 1 

• 76996E +00 

• 1261 2E + 01 

•138986+00 

6 • 32060E+01 

• 10605E+01 

• 10570E+01 

•75123E+00 

- 

.609536-02 

•1 9891E+0 1 

• 72475E+00 

. 12567E+01 

• 1 3609E+00 

7 .37213E+01 

• 107 23E+01 

• 104446*01 

•71087E+00 


•31895E-01 

•20227E+01 

*694026+00 

• 12573E+01 

•132646+00 

8 • 42658E+01 

.10792E+01 

• 1036 IE + 01 

.68766E+00 


•61957E-01 

•20432E+01 

•67654E+00 

•12577E+01 

.130366*00 

9 .48320E+01 

• 108 35E+01 

• 103 02E •*■01 

•67296E+00 


•87579E-01 

•20568E+01 

•66572E+00 

•12581E+01 

•128696*00 

10 .5414QE+01 

•10867E+01 

• 102 52E +01 

•66232E+00 


•11048E+00 

• 2 0671E + 01 

•65815E+00 

• 12 584E+01 

• 127306*00 

11 .60088E+01 

•108916*01 

.10204E+G1 

•65350E+00 


.131496+00 

•20760E+01 

• 65 21 7E +00 

•12588E+01 

.126026*00 

12 • 661 1 1E+01 

• 10912E+01 

• 101 58E+01 

*645996+00 


• 15051E+00 

•20838E+01 

•64T29E+00 

•12591E+01 

.124836*00 

13 .721946*01 

• 10925E+01 

. 10118E+01 

.640316+00 


• 16 709E + 00 

• 20898E + 01 

.643856+00 

• 12595E+01 

•123806*00 

14 .783046*01 

•10930E+01 

• 100 86E + 01 

• 63732E +00 


•18060E+00 

•20932E+01 

.642566+00 

•12598E+01 

.123086*00 

15 « 844106+01 

•10924E+01 

• 10064E *01 

♦63743E +00 


•1907 2E+00 

• 2 0936E + 01 

• 64375E +00 

•12600E+01 

•122756*00 

16 • 90508E + 01 

• 10910E + 01 

• 10050E +01 

.64012E+00 


.19774E+00 

•20915E+01 

• 64699E + 00 

• 12602E+0 1 

.122756*00 

17 .973396*01 

• 10688E+01 

• 10037E+01 

.64432E+00 


•20289E+00 

•20880E+01 

•65171E+00 

•12605E+01 

.122966*00 

18 • 10400E+02 

•10867E+01 

.10025E+01 

.64805E+00 


•20632E+00 

• 20843E+01 

•65589E+00 

•12607E+01 

•123146*00 

19 • 11057E+02 

.10848E+01 

• 10011E+01 

• 64952E+00 


•20931E+00 

• 2 081 4E+01 

•65791E+00 

•12609E+01 

.122976+00 

20 • 11064E+02 

.10846E+01 

•10011E+01 

.64952E+00 


•20935E+00 

.20814E+01 

•65790E+00 

• 12 609E + 01 

• 12297E + 00 

21 • 11078E+02 

• 1 08 48E + 01 

.1001U+01 

* 64951E + 00 


• 209446 + 00 

.208146+01 

• 65789E +00 

•12609E+01 

.122966+00 


PT. 

ALP<1) 

A LPT 2) 

ALP ( 3 ) 

ALP( 4 ) 

ALP (5 ) 

ALP<61 

ALP<7> 

PHI 

w 

1 

•64601E-03 

• 30271E-02 

.215486*00 

.307416-02 

•19107E-01 

.85252E-02 

. 75014E +00 

•lOOOlE+Ol 

.23702E+02 

2 

•646086*03 

.303066-02 

.215466+00 

• 30754E-02 

. 19120E— 01 

•85261E-02 

• 75014E +00 

. 1 0001E + 01 

•23701E+02 

3 

.651786*03 

.305086-02 

• 21535E+00 

.308296-02 

•191966-01 

• 8 5328E-02 

.750146+00 

. 10001E+01 

.236986*02 

4 

• 661 10E-03 

.31226E-02 

.21482E+00 

.311896-02 

• 19380E— 01 

•87534E-02 

.750146+00 

• 10001E+01 

•236866+02 

5 

.66110E-03 

.312266-02 

. Z1482E+00 

.311896-02 

•19380E— 01 

• 8 7534E— 02 

. 75014E + 00 

• 10001E+01 

• 23279E+02 

6 

.6 1031E-03 

• 311 26E-02 

• 21370E+00 

.320816-02 

• 18997E— 01 

• 1 0237E-01 

. 75014E+00 

• 10001E+01 

.236826*02 

7 

.624366-03 

• 31667E— 02 

.213766+00 

.319646-02 

.19041E-01 

•1 0068E-01 

• 75014E +00 

. 10001E+01 

.236796+02 

8 

•63634E-03 

•32016E-02 

.213666+00 

.320246-02 

•192046-01 

.995156-02 

.750146+00 

• 10001E+01 

.236736+02 

9 

•64803E-03 

.324016-02 

.213496+00 

. 32138E— 02 

•19380E-01 

•98839E-02 

.750146+00 

•10001E+01 

.236666*02 

10 

.660546-03 

• 32861E-02 

.213276+00 

.322866-02 

.19569E-01 

.984536-02 

.750146+00 

. 10001E+01 

.236596+02 

XI 

•67554E— 03 

• 33 448E— 02 

.212976+00 

. 32484E— 02 

. 19796E-01 

• 9 8 25 0E-02 

•75014E+00 

• 10001E+01 

.236496*02 

12 

•69185E-03 

. 34103E-02 

.212636+00 

.327066-02 

.20041E-01 

• 98157E-02 

•75014E+00 

.100016+01 

.236386*02 
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•70862E— 03 
•72543E—03 
•74171E-03 
•75736E-03 
• 77*78E— 03 
•79293E-03 
•81007E— 03 
• 81008E— 03 
•81010E-03 


•34791E-02 
• 35506E-02 
• 36229E— 02 
•36930E— 02 
•37776E-02 
• 38650E-02 
• 39*65E-02 
• 39465E— 02 
.39466E-02 


• 21227E+00 
.2U88E+00 
.2U47E + 00 
• 21105E+00 
« 21049E +00 

• 21002E +00 

• 20958E + 00 
• 20958E+00 
• 20958E+00 


.329<,5E-02 
. 33200E-02 
.33*668-02 
• 33750E-02 
.3*158E-02 
• 3**628-02 
• 3*737E-Q2 
• 34737E-02 
• 3*7378-02 


•20293E-01 
.205*7E-01 
• 20795E-01 
• 210*9E-01 
.2139*E-01 

• 21 656E-01 
• 21897E-01 

• 2 1898E-01 

• 21 898E-0 1 


•9 0 192E-02 
.98409E-02 
.90825E-O 2 
•99378E-02 
•10007E-01 

• 1 008 3E-01 
•101*8E-01 
.101*8E-01 

• 1 01*9E-0 1 


.7501*E+00 
.7501*E+00 
•7501*E+00 
• 7501*E + 00 
• 7501*E +00 
.7501*E+00 
•7501*E+00 
•7501*E+00 
.75014E+00 


• 10001E+01 
♦ 10001E+01 

• 10001E +01 
• 10001E+01 

aoooiE+oi 

• 10001E+-01 
•10001E+01 
•10001E+Q1 
• 10001E+01 


• 23626E+02 
.2361*E+02 
•23602E+02 
.235908+02 
• 23576E+02 
.23562E+02 
• 235*9E+-G2 
•235*9E+02 
• 235*98+02 



uo 

CO 


KKKKK - 2565 


LI **** 


I PUNCH * 1 XSTEP * • 100E+Q2 PTZERO * .351E+05 IOIVERG - 0 IDO * 6 

XEaYE*RCR>PTOJ>TOJ 0. 0. 0. 0. 0. 

NPTS - 19 NPT « 5 ITYP * 1 ISHOCK » 1 MM AX * 54 

JC HEM - 1 IAVE « 0 INTACT * 0 

XJ * 0. EMSUB * « 1 01E + 0 1 R TH =* ,2506-01 DELTAY « .500E+00 YBOT - 0, YTP - . 7506 + 01 CHE MFC - .5006 + 01 

RE - . 6 72 E +06 PR * ,1006+01 X LE ■ , 1006 + 01 EMINF * .190E + 01 TIN - .214E+04 WINF * .232E + 02 PRES * .122E+04 
XPQT » . 100E+02 XK1 * ,7506-03 XK2 * .285E-01 XK3 - .100E+03 XK4 » 0. 

I BOD ■ 0 ABOD • 0. BBOD * 0. CBOD * 0. 

JBOD • 1 EBOD - . 909E + 01 F BOD * .213E + 00 GBOD - 0. 

JJJ- 5 

XWALL * EEB0D»FFB0D>GG8DD 
. 920E + 01 • 750E + 0 1 .213E + 00 0. 

. 142E+02 • 056E + 0 1 .105E + 00 0. 

* 192E+02 .909E+01 .213E+00 0. 

• 4726+02 • 150E + 02 0. 0. 

.7756+03 .150E+02 0. 0. 

L WALL” 4 LBOD* 1 

IPRESS - 0 APRESS - 0. BPRESS * 0. CPRESS * 0. 

IPRESU - 0 APRESU » 0. BPRESU * 0. CPRESU « 0. 

ISC 1)- 0 IS( 2)- 0 I S ( 3 ) * 0 IS< 4)- 0 

IS( 5 ) ■ 0 IS( 6)- 4 IS( 

BETB < 1)» 0. BETB ( 2)* 0. BETB ( 3)- 0. BE TB ( 4)- 0. 

BETB ( 5)- 0. BE TB ( 6)« -.517E + 00 BE TB ( 

MASFRAC ( 1)« .68600006-05 

MASFRAC ( 2 ) * .35300006-03 

MASFRAC ( 3>« .16900006+00 

MASFRAC ( 4 ) ■ .9180000E-02 

MASFRAC ( 5)* .6760000E-01 

MASFRAC ( 6)* .33400006-02 

MASFRAC ( 7 ) * .7500000E+00 


APPENDIX D 



PROGRAM VIS-CHAR 
WITH 

EMBEDDED SUBSONIC FLOW 
SHOCK WAVES 

AND FINITE RATE H 2 - A I R CHEMISTRY 

TYPE OF FLOW IS TWO DIMENSIONAL 
CHEMISTRY IS FINITE RATE 

JET OR NOZZLE RADIUS ( RTH ) - .25000E-01 FT. 


REFERENCE CONDITIONS 


MACH NO. (EMINF) * .19000E+01 

VELOCITY (UIN) - .61A53E+0A FT/ SEC 

TEMPERATURE (TIN) * .21AOOE+OA DEGREES K 

PRESSURE (PRES) - .12200E+0A LB/FT+*2 

DENSITY (RHOINF) * .1A766E-03 SLUG$/FT**3 

FROZEN SPECIFIC HEAT RATIO (GAMINF) - .12661E+01 

MOLECULAR WEIGHT (WINF) - .23200E+02 

REYNOLDS NUMBER (RE) - .16800E+0b 

PRANDTL NUMBER (PR) - .10000E+01 

LEWIS NUMBER ( XLE ) * .lOOOOE + Ol 


OUTPUT HEADINGS 


X - X/RTH 

Y - Y/RTH 

Q - VELOCITY/UIN 

T - TEMPERATURE/TIN 

P - PRESSURE/PRES 

TH - FLOW DEFLECTION (RADIANS) 

EM - MACH NUMBER 

RHO - DENSITY/RHOINF 

GAM - SPECIFIC HEAT 

XMASS - NON-DIMENSIONAL MASS FLOW 

PHI - EQUIVALENCE RATIO 

W - MOLECULAR WEIGHT 
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_Cr MASS FRACTIONS 

° ALPC1) - H 

ALP ( 2 ) - 0 
ALP ( 3 ) - H20 
ALPU) - H2 
AL P ( 5 ) - 02 
ALP { 6 > - OH 
AL P ( 7 ) - N2 
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KOUNT- 2161 


X • .285656+02 

SHOCK TYPE 6 BETA « -.5176+00 

VISC0SITY(LB*SEC/FT+*2 ) * .132226-05 .13218E-05 .13206E-05 .13175E-05 .139896-05 .12941E-05 .12392E-05 

• 12080E-05 .11807E-O5 . 11752E-05 .11645E-05 . 11558E-05 .114966-05 .114736-05 

• U494E-05 . 115 53E-05 . 11637E-05 .11712E-05 .11747E-05 


PT. 

Y 

0 

T 

P 

TH 

EM 

RHO 

GAM 

PITOT 

1 

0. 

.11437E+01 

• 9762 6£ +00 

. 50450E+00 

0. 

.222 79E+01 

• 5 2794 E + 00 

.126046+01 

.11226E+00 

2 

.812316+00 

• 1 1437E + 0 1 

• 97607 E + 00 

• 504 26 E + QO 

• 3 1 4 70E-0 1 

.222826+01 

.527776+00 

• 12604 E +0 1 

• 1 12 13E+00 

3 

.162596+01 

. 11439E + 01 

• 9 75 10E + 00 

• 5 03 35 E + 00 

.628506-01 

.22294E+01 

• 5 2729E + 00 

.126056+01 

• 11 1 74E + 00 

4 

. 2 4985 E +0 1 

• 1 1445 E + 0 1 

.971366+00 

• 5 00 5 1 E + 00 

• 96100E-0 1 

.22 341E+01 

.526066+00 

•12608E+Q1 

.11102E+00 

5 

• 24985 E + 01 

.102736+01 

•10821E+01 

.331176+00 

-.69250E-01 

• 190 38 E + 0 1 

• 78 42 1 E + 00 

.125566+01 

.138276+00 

6 

.320606+01 

.106146+01 

.105706+01 

•75123E+00 

-.610006-02 

• 1989 IE +0 1 

• 72 547E + 00 

. 1 2568E +01 

• 135 79E + 00 

7 

.372136+01 

• 1 0732E +0 1 

,104446+01 

•71087E+G0 

• 3 1 900E-0 1 

• 202 2 7E + 01 

• 6 9470E + 00 

.125746+01 

•132346+00 

8 

.426586+01 

• 1080 1E+0 1 

.103616+01 

.687666+00 

• 6 1 96 OE-O 1 

• 2 04 32 E + 01 

•6772 1E+00 

# 1 2578E +01 

•13007E+00 

9 

•48320E+01 

. 10845E+01 

• 1 03 02 E + 0 1 

.672966+00 

• 8 7580 E-0 1 

•20569E+01 

•66638E+00 

•12582E+01 

.128416+00 

10 

•5414GE+01 

• 10876E + 01 

.102526+01 

.662326+00 

•11048E+00 

. 206 71E + 0 1 

.658786+00 

.12535E+01 

• 12702E+00 

11 

•60088E+Q 1 

.10901E+01 

.102046+01 

• 6 5 35 OE + 00 

•13149E+00 

•20760E+01 

• 65281 E + 00 

•12589E+01 

.125746+00 

12 

•66111E+01 

• 1 092 1 E + 01 

.101586+01 

• 645 99E + 00 

• 1 50 5 1 E +00 

•20838E+01 

. 64 793E + 00 

.12592E+01 

• 12455E+QG 

13 

• 72 1 94E +01 

• 1 0935 E +0 1 

•10118E+01 

• 640 316 + 00 

. 16 709E + 00 

• 20898E + 01 

.6 4447E + 00 

. 12595E + Q1 

• 123 53E+00 

14 

• 78304 E + 0 1 

. 1 0939E + 0 1 

.100866+01 

.637326+00 

• 1 8060 E + 00 

. 20932E+01 

.643186+00 

.125986+01 

.122816+00 

15 

. 8 44 1QE + Q 1 

. • 1Q934E+Q 1 

.1Q064E+Q1 

•63743E+QQ 

• 19072E + 00 

.209376+01 

• 6 4437E + 00 

• 12601 E +0 1 

.122476+00 

16 

•90508E+01 

• 1 0919E +0 1 

•10050E+01 

• 6 40 12E + 00 

• 19774E+00 

•20915E+01 

.647656+00 

.126036+01 

• 1 2247E+00 

17 

.973396+01 

• 1 0898 E +01 

•10037E+01 

• 644 3 2E + 00 

•20289E+00 

• 208 80E +0 1 

• 65 235E + 00 

.126066+01 

. 122 68E + 00 

18 

• 10400E+02 

• 1 0876E + 01 

.10025E+01 

•64805E+00 

• 20632E+00 

• 208 4 3E + 0 1 

• 6565 4E + 00 

. 1 2608 E +0 1 

.12286E+00 

19 

•11078E+02 

•10857E+01 

• 100 1 1 E + 0 1 

. 6 49 5 1 E +00 

• 2 094 4 E + 00 

•20814E+01 

•65854E+00 

* 12610E+01 

•122696+00 


PT. 

ALP { 1 ) 

ALP ( 2 ) 

A L P ( 3 ) 

ALP ( 4 ) 

AL P ( 5 ) 

ALP ( 6 1 

ALP<7) 

PHI 

w 

1 

• 64600E-03 

.302706-02 

.215506+00 

.307 40E-02 

.191106-01 

.852506-02 

• 75 0126 + 00 

.100026+01 

.237026+02 

2 

• 64690E-Q3 

• 3Q310E-02 

.215506+00 

. 307 50E-O2 

.191206-01 

.852606-02 

.750106+00 

. 1 0003 E + 0 1 

• 23701E+02 

3 

•65 180E-03 

• 3 05 10E-02 

.215306+00 

• 308 30E-Q2 

.192006-01 

• 85 3 30E-02 

.750186+00 

.999936+00 

.236986*02 

4 

• 661 10E-03 

• 3 12 30E-02 

• 2 14 80 E +00 

• 3 1 1 90E-02 

• 1 938 OE-O 1 

• 8 75 30E-02 

•750166+00 

.100006+01 

.23686E+02 

5 

.66110E-03 

.312306-02 

.214806+00 

.311906-02 

.193806-01 

.875306-02 

• 75 0 16E + 00 

.100006+01 

• 2 3686E+02 

6 

•61030E-03 

. 3 1130E-0 2 

• 2 13 70 E + 00 

.320806-02 

•19000E-0 1 

.102406-01 

.750136+00 

• 10001E +01 

#236826+02 

7 

• 62 440E-03 

• 3 1670 E-02 

.213806+00 

• 3 1960E-02 

• 1 9040E-Q 1 

.100706-01 

•75010E+00 

• 1 0002 E+0 1 

#236786+02 

8 

•63630E-03 

. 32020E-02 

.213706+00 

.320206-02 

.192006-01 

. 99520E-02 

•75011E+Q0 

• 10002E +01 

.236736+02 

9 

•64800E-03 

• 3 2400E-02 

.213506+00 

.321406-02 

.193806-01 

.988406-02 

.750136+00 

• 10001E +0 1 

.236666+02 

10 

.66050E-03 

.328606-02 

.213306+00 

•32290E-02 

• 1 95 70 E-0 1 

• 9845 0E-02 

. 75011E+00 

.100026+01 

•236586+02 

11 

•67550E-03 

.334506-02 

.213006+00 

• 3 24 80E-02 

. 1 9800E-Q 1 

• 982 50E-02 

♦75011E+0G 

.100026+01 

.236496+02 

12 

* 69180E-03 

. 3 4100E-0 2 

• 2 12 60 E + 00 

.327106-02 

• 2 0040E-0 1 

• 98 160E-02 

.750176+00 

.100006+01 

#236386+02 

13 

•70860E-03 

•34790E-02 

• 2 12 30 E + 00 

. 329 5 0E-02 

• 2 0290E-0 1 

.981906-02 

• 750 1 1 E + 00 

• 10003E +01 

.236266+02 

14 

.725406-03 

• 3 55 10 E-02 

.211906+00 

.332006-02 

.205506-01 

.984106-02 

• 750 1 1 E + 00 

• 10002 E +01 

.236146+02 
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15 

♦ 7 A 1 70E-03 

• 36230E— 02 

• 2 1150E+00 

• 33A 70E-02 

•20800E-01 

•98820E-02 

.750116+00 

• 10002 8 +0 1 

.23602E+Q2 

16 

• 75 7A0E-03 

• 36930E-02 

•211006+00 

•33750E-02 

•21050E-01 

•99380E-02 

• 75019E+00 

• 99992E +00 

•23591E+02 

17 

• 77A 80E-03 

.3770OE-O2 

.210506+00 

• 3 A160E— 02 

•21390E-01 

•lOOlOE-Ol 

•75013E+00 

• 10002E+0 1 

.235756+02 

18 

.793006-03 

.386506-02 

•2 lOOOE+QQ 

.34A606-02 

•21660E-01 

•10080E-01 

•750166+00 

•100006+01 

.235626+02 

19 

********* 

• 81Q1QE-03 

.39A70E-02 

•20960E+00 

.347A0E-02 

•21900E-01 

.10150E-01 

•750 12E+00 

•10002E+01 

.235*96+02 

SHOCK WAVE 

BETB< 6 )HAS 

REF LECTEO FROM 

THE WALL AND 

HAS BECOME 

BETB ( 7) 
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KOUNT- 2560 


X ■ .47112E+02 

SHOCK TYPE 7 BETA * ,6026+00 

VISCQSlTY(LB*SEC/FT*+2)- .130056-05 .131216-05 .13229E-05 .13362E-05 .13522E-05 .13700E-05 . 13886E-05 


• 14073E-05 

.14256E- 

■05 

• 14430E- 

05 .14592E- 

05 • 14735E- 

*05 .148626- 

05 .149646- 

■05 



• 150396-05 

.15088E- 

■05 

.151166- 

05 .151366- 

•05 . 127526-05 .129546- 

05 .13076E- 

•05 



• 13122 E-0 5 

• 13102E- 

•0 5 









PT . 

Y 


0 

T 

P 

TH 

EM 

RHO 

GAM 

PITOT 

1 0 

• 


• 1 1795 E + 0 1 

.957716+00 

.403916+00 

0. 

.2 3248E + 01 

•43264E+00 

• 12602E + 01 

.972066-01 

2 

• 94952 E + 00 


•11789E+01 

.958506+00 

•40540E+00 

• 1 5 38 5 E-0 1 

.232266+01 

• 43 383E + 00 

.126016+01 

•97363E-01 

3 

• 1 7596E + 01 


. 117B1E+01 

•95888E+00 

.408976+00 

• 2 8382 E-0 1 

.232046+01 

.437406+00 

• 12602 E+01 

.980026-01 

4 

•252 13E+01 


• 1 1756E + 01 

. 961 03E+00 

. 414006+00 

. 4 06 10E-Q 1 

•23127E+01 

.441796+00 

.126016+01 

.905416-01 

5 

• 32360E +01 


• 1 172 7E + 01 

•96351E+00 

.420196+00 

• 5 2 16 7E-Q 1 

.230386+01 

•44707E+00 

. 12600E+01 

. 9918QE-01 

6 

• 391 78E+01 


. 11696E+01 

.96607E+00 

• 42693 E +00 

• 6 3378 E-0 1 

.229446+01 

•45294E+Q0 

.126006+01 

• 99895E-0 1 

7 

•45638E+01 


.116666+01 

•96844E+00 

.433866+00 

• 74269E-0 1 

• 22 856E +01 

• 45907E+00 

.125996+01 

• 10065E+00 

8 

• 5 1824E + 01 


• 116376+01 

.970566+00 

.440736+00 

• 8 502 5 E-0 1 

.227746+01 

. 46523E+00 

• 12598E+01 

•101416+00 

9 

• 5 70 12E + 01 


• 1 16 11E + 01 

• 972 39E + 00 

•44738E+00 

•95798E-0 1 

• 22698E +01 

• 47 126E + 00 

• 12598E+01 

• 102 12E+00 

10 

•63670E+01 


• 11506E+O1 

. 973 98 E + 00 

.453676+00 

• 10670E+00 

.226286+01 

•47700E+00 

. 12598E+01 

•102766+00 

11 

• 69450E+0 1 


• 11562E+01 

.975326+00 

• 459 48 E + 00 

.117806+00 

.22564E+01 

• 482 33E + 00 

• 12598E + 01 

. 103 30E + 00 

12 

• 7505 1E + Q1 


•11541E+01 

•97636E+00 

.464576+00 

• 1 2884 E + 0 0 

.225096+01 

.48704E+00 

• 12598E+01 

.103716+00 

13 

• 806 14E + 01 


• 1 152 3E + 01 

• 97695 E + 00 

.468956+00 

• 14001 E + 00 

. 22463E+01 

•4912 1E+00 

.125996+01 

. 10401E+00 

14 

• 86042E+01 


• 1 1508E + 0 1 

.977126+00 

.472396+00 

• 15100 E + 00 

.224286+01 

.49459E+00 

. 12599E+01 

.10417E+00 

15 

•91375E+01 


• 1 1496E + 0 1 

.977006+00 

♦47482E+00 

• 1 61 80E + 0 0 

• 22402E+01 

. 49706E+00 

• 12600E +01 

• 104 16E + 00 

16 

• 96639E+01 


•114886+01 

.976526+00 

.476266+00 

• 1 72 44 E + 0 0 

.223886+01 

.498686+00 

• 12601 E +01 

. 104 02 E+00 

17 

• 10173E+02 


• 1 1482 E +0 1 

.975676+00 

• 476 8 7E + 00 

•18271E+00 

.223836+01 

• 49962 E + 00 

.126026+01 

.103766+00 

16 

•11067E+02 


• 1 1475E +0 1 

.974906+00 

.477156+00 

•20150E+00 

.223766+01 

*5 0022E + 00 

.126036+01 

.103076+00 

19 

• 1 1087E + 02 


•12011E+01 

• 91 395 E + 00 

• 35 0 83E + 00 

• 1068 0 E + 00 

•24150E+01 

•39221E+00 

• 12638E +01 

.098306-01 

20 

•12097E+02 


• 1 1972E+0 1 

•9 1731E+0Q 

.357566+00 

•13353E+Q0 

• 24028E +01 

• 39822 E + 00 

.126376+01 

.901546-01 

21 

• 13079E+02 


• 1 1 946 E + 0 1 

•91821E+00 

•36146E+00 

•15917E+00 

• 2 3959E + 0 1 

.401986+00 

.126376+01 

.900126-01 

22 

• 14039E+02 


• 1 1931E + 0 1 

• 91775 E + 00 

.362686+00 

.183946+00 

•23928E+01 

.403406+00 

.126396+01 

.893926-01 

23 

• 150356+02 


• 1 1922 E + 01 

•916156+00 

.361656+00 

• 2 0986E+00 

.23923E+01 

.402766+00 

. 12641 E +01 

• 86263E-0 1 


PT. 

ALP(l) 

A LP ( 2 ) 

A L P ( 3 ) 

ALP ( 4 ) 

ALP ( 5 ) 

AL P ( 6 ) 

A L P ( 7 ) 

PHI 

W 

1 

• 5 45 9 6E— 03 

.246136-02 

.2 1932 E + 00 

.28 1 40 E— 02 

.173516-01 

.739296-02 

• 75 012 E+00 

• 1 0002E +0 1 

.237996+02 

2 

. 54 783E-03 

• 2 4730E-02 

. 2 1923E+00 

.282016-02 

.173086-01 

• 742 32E-02 

• 75 012E + 00 

.100026+01 

• 2 3797E + 02 

3 

.552966-03 

.249876-02 

.219046+00 

.283256-02 

.174826-01 

.746536-02 

.75 013E + 00 

. 10001E +0 1 

.237936+02 

4 

.557156-03 

• 2 5262 E-02 

.218826+00 

• 2 84 7QE-02 

•17567E-01 

• 75 4 14E-02 

•75014E+00 

•10QQ1E+Q1 

•23788E+02 

5 

.560986-03 

. 2 5533E-02 

.218616+00 

.286166-02 

• 1 7648 E-0 1 

.762336-02 

« 7 5Q14E + Q0 

.100016+01 

.2 37836+02 

6 

.564586-03 

• 2 5797E-02 

.218426+00 

.287596-02 

• 1 7725 E-0 1 

. 77062 E-02 

.750136+00 

• 10001 E +0 1 

.237786+02 

7 

.568276-03 

.260596-02 

.218236+00 

• 2 8899E-02 

• 1 78 0 1 E-0 1 

. 77856 E-02 

•75012E+00 

.100026+01 

.237736+02 

8 

.5 7220E-03 

.263246-02 

• 2 1804E + 00 

.290396-02 

.178806-01 

• 786 11E-02 

.750126+00 

.100026+01 

.237696 >-02 

9 

.576736-03 

• 2 6609E— 02 

• 2 1782 E + 00 

.291846-02 

.179676-01 

.793406-02 

.750126+00 

. 10002E+01 

.237646+02 


-Cr 
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10 

.58170E-03 

.269066-02 

.217616+00 

.293346-02 

• 1 8062 E-0 1 

.800396-02 

.750126+00 

. 10002 E +01 

.237586+02 

11 

.587026-03 

.272Q9E-02 

.21739E+00 

.294886-02 

• 1 8 1 65 E-0 1 

.807026-02 

. 75 012E + 00 

. 10002E+01 

. 23753E+02 

12 

.592566-03 

.2 74976-02 

•2 1717E+00 

.296476-02 

• 1 8 2 82 E-0 1 

.012836-02 

.750116+00 

• 100026+01 

.237476+02 

13 

.599246-03 

• 2 78 136-02 

• 2 16 91E + 00 

.29825E-02 

• 1 8419E-0 1 

.emoE -02 

. 75013E+00 

.100016+01 

.237416+02 

14 

• 605 336-03 

.281576-02 

•21663E+00 

.300406-02 

.185796-01 

.822776-02 

.750136+00 

.100016+01 

.237356+02 

15 

.61277E-03 

.28509E-02 

. 21641E + 00 

• 302 01E-02 

.187086-01 

.827226-02 

.750136+00 

• 10002 1 +0 1 

.237206+02 

16 

•62032E-03 

.238406-02 

• 2 1 6 19 E + 00 

. 303 6 IE-02 

• 18847 E-01 

. 8306 IE— 02 

.75 0126+00 

.100026+01 

.237226+02 

17 

.629486-03 

.291586-02 

.215986+00 

.304876-02 

•18977E-01 

•83329E-02 

.750126+00 

.100026+01 

.237156+0 2 

IB 

.686366-03 

.297626-02 

.216366+00 

. 30066E-02 

.194906-01 

.736566-02 

•75012E+00 

. 10002E+01 

.237126+02 

19 

.686366-03 

.297626-02 

•21636E+00 

.300666-02 

.194906-01 

• 73656 E-02 

• 750 12E + 00 

.100026+01 

• 23704E+02 

20 

.69590E-03 

.300226-02 

• 2 16 16 E + 00 

. 30 1 44E-02 

. 1 962 1 E-0 1 

•73228E-02 

. 75019E+00 

• 99992 E +00 

.237006+02 

21 

.7060QE-03 

.304766-02 

.215876+00 

. 303 886-Q2 

.198136-01 

* 7 390 26-0 2 

• 750136+00 

.100026+01 

.236906+02 

22 

.7161 7E-03 

• 3 1004 E— 02 

.215516+00 

. 306266-02 

.200156-01 

.743776-02 

. 75016E+00 

.100006+01 

.236626+02 

23 

.73069E-03 

.315926-02 

.215216+00 

• 308 45E-02 

• 2 022 7E-0 1 

• 74 709E-02 

. 75 012E + 00 

.100026+01 

.236716+02 


********* 


A SHOCK WAVE BET B* -.390E+00HAS BEEN INSERTED AT X* 


472 E + 02 WITH A TURNING ANGLE* .2106+00 



Example C - Third variation (fig. 4): 


KKKKK * 2635 

IL -*** 




I PUNCH • 1 

XSTEP * . 

100E +01 

PTZERO * 

• 35 IE +05 IDIVERG - 0 

XE> YE*RCR* PTOJ 

> TOJ 0. 

0. 

0. 

0. 0. 

NPTS * 18 

NPT • 5 

IT YP * 2 

ISHOCK 

* 0 MM AX ■ 54 


JCHEfl - 1 I AVE • 0 INTACT * 0 

XJ - 0. EMSUB • • 101E + 01 RTH - .250E-01 DEITAY - .500E+00 YBOT « 0. 

RE ■ .672E+06 PR • .100E+01 XIE ■ .100E+01 EMINF « .190E+01 TIN - .214E+04 

XPOT * • 100E+02 XKI * • 750E-03 XK2 ■ .205E-O1 XK3 * .100E + 03 XK4 - 0. 


IBOO 

• 0 

ABOD - 0. 

BBOD « 0. 

C BOD - 0, 

JBOD 

- 1 

EBOD » • 750E+01 

F BOD * 0. 

GBOD - 0. 


JJJ* 3 


YTP » • 75GE + Q1 

WINF * .232E+02 PRES 


XWALL>EEB0D#FFBOD*GGBOD 


• 920E+01 

.750E+01 .213E+00 

0. 


• 433E+02 

• 147E *02 0. 

0. 


• 775E+03 

• 147E *02 0. 

0. 


LW ALL* 

1 LBOD* 1 



I PRESS - 

0 APRESS ■ 0. 

BPRESS • 0. 

CPRESS - 0 

IPRESU » 

0 APRESU « 0. 

BPRESU ■ 0. 

CPRESU - 0 

MAS FRAC ( 

1 )* . 6864000E-05 



MAS FRAC ( 

2)* .3529000E-03 



MASFRACC 

3 ) * • 1694000E+00 



MASFRAC ( 

4)* • 9177000E-02 



MASFRAC C 

5)* • 6758000E-01 



MASFRAC ( 

6)* • 3343000E-02 



MASFRACC 

7)- .7501400E+00 




4r 

U1 


CHEMFC - . 500 E + 0 1 

* • 122E *04 
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4=r PROGRAM VIS-CHAR 

CT> 

WITH 

EMBEDDED SUBSONIC FLOW 
SHOCK WAVES 


AND FINITE RATE H2-ATR CHEMISTRY 


TYPE OF FLOW IS TWO DIMENSIONAL 
CHEMISTRY IS FINITE RATE 

JET OR NOZZLE RADIUS (RTH) * .25000E-01 FT. 


REFERENCE CONDITIONS 

MACH NO. (EMINF) - .19030E+01 

VELOCITY (UIN) - .61561E+04 FT/SEC 

TEMPERATURE (TIN) • .21440E+04 DEGREES K 

PRESSURE (PRES) « .12212E+04 LB/FT**2 

DENSITY (RHOINF) • .14767E-03 SLUGS/FT**3 

FROZEN SPECIFIC HEAT RATIO (GAMINF) « .12654E+01 

MOLECULAR WEIGHT (WINF) - .23223E+02 

REYNOLDS NUMBER (RE) * .16799E+05 

PRANDTL NUMBER (PR) ■ .lOOOOE+Ol 

LEWIS NUMBER ( XL E ) ■ .lOOOOE+Ol 


OUTPUT HEADINGS 


X - X/RTH 

Y - Y/RTH 

Q - VELOCITY/UIN 

T - TEMPERATURE/TIN 

P - PRESSURE /PRES 

TH - FLOW DEFLECTION (RADIANS) 

EM - MACH NUMBER 

RHO - DENSITY/RHOINF 

GAM - SPECIFIC HEAT 

XMASS - NON-DIMENSIONAL MASS FLOW 

PHI - EQUIVALENCE RATIO 

W - MOLECULAR WEIGHT 
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MASS FRACTIONS 
ALP(l) - H 
AL P ( 2 ) - 0 
AL P ( 3 ) - H20 
ALP<4) - H2 
A L P ( 5 ) - 02 
AL P ( 6 ) - OH 
AL P ( 7 ) - N2 


KOUNT- 0 
X • .51820E+01 

VISC0SITY(LB*SEC/FT**2 ) * .13412E-05 .134126-05 .13412E-05 .134126-05 .13412E-05 .13412E-05 .13412E-05 

• 1 34 12E -05 .13412 6— 05 .13412E-05 .13412E-05 . 1 3<tl2E-05 .13412E-05 .13412E-05 

• 1 341 2E-05 *134126-05 . 13412E-05 . 13412E-05 


PT. 

Y 

Q 

T 

P 

TH 

EM 

RHO 

GAM 

PITOT 

1 

0. 

•10001E+01 

. 10000E + 01 

. 1 OOOOE +01 

0. 

• 1 903 OE + 0 1 

• 99980E +00 

• 12655E +0 1 

.16817E+00 

2 

•50000E+00 

. 1 0001 E + 0 1 

. 100 OOE +0 1 

. 1 0000 E + 01 

0. 

• 1 9030E+0 1 

,999806+00 

.126556+01 

• 1681 7E + 00 

3 

•10000E+01 

•10001E+01 

.10000E+01 

• 10000E +01 

0. 

• 1 9030E+0 1 

• 99980F + 00 

. 12655E + 01 

. 168176 + 00 

4 

• 15000E+01 

. 100C1E + 01 

. 100 OOE + 01 

• 1 OOOOE + 01 

0. 

.190306+01 

, 99980E +00 

. 12655E+01 

• 168 1 76*00 

5 

• 20000E+01 

.100016+01 

. 100 OOE +0 1 

. 1 OOOOE +01 

0. 

• 1 9030E + 0 1 

• 9990OE +00 

• 12655E +01 

.168176+00 

6 

•250006+01 

• 10001E + 01 

. 10000E + 01 

• 10000E + 01 

0. 

.190306+01 

.999806+00 

.126556+01 

.168176+00 

7 

.300006+01 

•10001E+01 

. 100 OOE +0 1 

• 10000E +0 1 

0. 

. 1 9030E + 0 1 

• 99980E + 00 

•12655E+01 

• 168 1 7E+00 

8 

• 35000E +01 

• 1 0001 E + 0 1 

. 10000E+01 

• 1 OOOOE +01 

0. 

.190306+01 

.999806+00 

.126556+01 

.168176+00 

9 

.40000E+01 

•10001E+01 

. 100 OOE + 01 

• 10000E +01 

0. 

• 1 9030E + 0 1 

• 99980E +00 

.126556+01 

• 1681 7E + 00 

10 

•45000E+01 

•10001E+01 

• 100 OOE + 01 

. 10000 E +01 

0. 

.190306+01 

.999806+00 

• 12655E+01 

• 1681 7E+00 

11 

• 50000E+01 

• 1 00 01 E + 0 1 

• 10000E +0 1 

• 10000E + 01 

0. 

.190306+01 

• 9998 OE + 00 

. 12655E+01 

• 168 1 7E+00 

12 

•55000E+01 

• 10001E+01 

. 100 OOE +01 

• 10000E +01 

0 . 

.190306+01 

.999806+00 

•126556+01 

. 1681 7E+00 

13 

• 60000E + 01 

. 10001E+01 

• 100 OOE +01 

• 1 OOOOE +01 

0 . 

• 1 903 OE + 0 1 

.999806+00 

• 12655E + 01 

.1681 7E+00 

14 

•65000E+01 

.100016+01 

. 1 00 OOE +01 

.100006+01 

0. 

.190306+01 

.999806+00 

. 12655E +0 1 

.168176+00 

15 

•67500E+01 

•10001E+01 

• 10Q00E+01 

•10000E+01 

0. 

.190306+01 

• 9998QE +00 

.126556+01 

.1681 7E+00 

16 

•70000E+01 

• 10001E+01 

.100006+01 

• 10000E +01 

0. 

.190306+01 

.999806*00 

• 12655E + 01 

• 168 1 7E + 00 

17 

• 725 00E + 01 

. 10001E+01 

. 1 00 OOE + 01 

. 10000E + 0 1 

0. 

.190306+01 

• 99980E + 00 

.126556+01 

.168176+00 

18 

.750006+01 

•10001E+01 

. 100 OOE +01 

. 10000E +01 

0. 

.190306+01 

• 99980E +00 

• 12655E + 01 

• 168 1 7E + 00 
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PT. 

ALP(l) 

ALP (2 ) 

ALP <3 ) 

AL P ( 4 ) 

ALP ( 5 ) 

1 

• 68 640E-0 5 

• 352 90E-03 

• 1694 OE +00 

• 9 1770E-02 

•67580E-01 

2 

.686 40E-05 

• 35 290E-0 3 

• 16940E + 00 

•91770E-02 

• 67580E-01 

3 

•68640E-05 

•35290E-03 

•16940E+00 

. 91770E-02 

•67580E-01 

4 

• 68 6 40E-05 

•35290E-03 

• 1 69 4 OE +00 

•91770E-02 

• 67580E— 01 

5 

•68640E-05 

•35290E-03 

• 1 694 OE +00 

• 91770E— 02 

•67580E-01 

6 

•68640E-05 

• 35 290E-03 

•16940E+00 

•91770E— 02 

•67580E-01 

7 

•68640E-05 

•35290E-03 

. 16940E+00 

•91770E-02 

•675B0E-01 

8 

•68640E-05 

•35290E-03 

. 16940E+00 

•91770E-02 

•67580E-01 

9 

•68640E-05 

•35290E-03 

. 1 69 4 OE +00 

• 9 1 770E— 02 

• 675B0E-01 

10 

•68640E-05 

•35290E-03 

•16940E+00 

. 91770E— 02 

• 67580E— 01 

11 

• 6 8640E-0 5 

•35290E-03 

•16940E+00 

•91770E-02 

•67580E-01 

12 

•68640E-05 

• 35 2 90E-0 3 

•16940E+00 

• 9 1 770E-02 

• 67580E-01 

13 

•68640E-05 

• 35 2 9QE-03 

•16940E+00 

• 91770E— 02 

• 67580E-01 

14 

• 6 86 40 E-0 5 

•35290E-03 

• 1 6940E +00 

•91770E-02 

• 67580E-01 

15 

•68640E-05 

•35290E-03 

. 16940E+00 

• 91770E-02 

• 67580E-01 

16 

• 68640E-0 5 

•35290E— 03 

•16940E+00 

. 91 770E-02 

• 67580E-01 

17 

•68640E-05 

•35290E-03 

• 1 69 40 E +00 

•91770E— 02 

• 67580E-01 

18 

•68640E-05 

• 35 290E-0 3 

. 16940E+00 

•91770E-02 

• 67580E-01 


********* 


OISCRET EXPANSION OF DNU* .209E+0OHAS BEEN INSERTED AT .920E+01 


ALP<6) ALP ( 7 ) 

• 3 343 OE-O 2 • 75 0 14E +00 

•33430E-02 • 75014E +00 

• 3 343 OE— 02 • 7501 4E +00 

• 3 343 OE— 0 2 .75014E+00 

•33430E-02 •75014E+00 

•33430E-02 .75014E+00 

• 3 3430E-02 .75014E+00 

•33430E-Q2 .75014E+00 

•33430E-02 ,75014E+00 

•33430E-02 .75014E+00 

• 3 3430E-02 .75014E + 00 

• 3 3430E-02 .75014E + 00 

• 3 3430E-0 2 •75014E+00 

• 3 3430E— 02 .75014E + 00 

• 3 3430E-0 2 .75014E+00 

•33430E-02 .75014E+00 

• 33430E-02 ,75014E*00 

• 33430E-02 *75014E+00 


PHI W 

• X 0001E + 01 .23210E + O2 

• 10001 E +01 .2321 8E+02 

• 1 0001E + 01 .2321 8E + 02 

• 10001E +01 .23216E + 02 

• 10001 E + 01 .2321BE + 0 2 

• 10001E + 01 .23218E + 02 

• 10001E+01 • 2321 8E+02 

• 10001E + 0 1 .23216E + 02 

• 1000 IE + 01 .23218E + 02 

• 10001 E +0 1 .23218E+02 

• 10001E+01 .23218E+02 

• 10001E+01 .23218E+02 

•10001E+01 •23216E+02 

• 10001E + 0 1 .23218E + 02 

• 10001E+01 • 2321 8E+02 

• 1 0001E + 01 • 2321 8E+02 

* 10001E+01 • 232 1 8E+02 

• 10001E +01 .23218E+02 
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KOUNT- 2635 


X « ■ 4 318 6E + 02 

VISCOSITY(LB*SEC/FT**2)* .129116-05 .129556-05 . 13081E-05 . 13273E-05 .13510E-05 . 137696-05 .14029E-05 


.142746 

-05 .14491E- 

•05 • 14673E-05 .148156- 

05 • 14917E- 

•05 .149786- 

•05 .150026- 

05 



• 149996 

-05 . 14989E- 

■05 .149706-05 . 14940E- 

•05 .149386- 

■05 • 1 493 6E-05 




PT. 

Y 

Q 

T 

P 

TH 

EM 

RHO 

GAM 

PITOT 

1 

0. 

. 12042E*01 

• 933 25E *00 

.359086+00 

0. 

•24059F+01 

.394506+00 

.126136+01 

• 923 5 7E-0 1 

2 

.104896*01 

.120356*01 

.934036*00 

. 3606 IE + 00 

.581926-02 

. 2 4035E + 01 

.395836+00 

. 12612E + 01 

• 9256 9E-01 

3 

.209216*01 

.120146*01 

.936226*00 

• 36497E +00 

.121326-01 

.239656*01 

• 39967E +00 

.126116+01 

.931736-01 

4 

.31247E*01 

•11982E+01 

• 93950E *00 

.371656+00 

• 19377E-01 

.238616*01 

• 4055 3E + 00 

• 12610E + 01 

.940816-01 

5 

•41435E*01 

.11 943E+01 

.943436+00 

.379896+00 

.278916-01 

.237346+01 

• 4127 6E + 00 

.126086+01 

.951766-01 

6 

.514696*01 

.119016*01 

• 947 56E +00 

.388916*00 

.378836-01 

• 2 3598E + 01 

.420656+00 

.126066+01 

• 96333E-01 

7 

•61349E*01 

.118506*01 

.951516*00 

• 39795E +00 

•49446E— 01 

• 2 3464E + 01 

• 42 858E + 00 

.126046+01 

.974416-01 

8 

• 71086E+01 

. 1 1 8 18E *01 

• 954 99E +00 

• 40644E *00 

.625716-01 

.233416+01 

• 43603E+00 

.126036+01 

• 9841 IE-01 

9 

.807006*01 

.117826*01 

• 95779E *00 

• 41391E +00 

.771806-01 

.232346+01 

.442656+00 

• 12602E +01 

. 9917 9E-Q1 

10 

•902 16E*01 

•11751E+01 

.959796*00 

.420086+00 

.931466-01 

.231466+01 

.448106+00 

. 12602E + 01 

.997036-01 

11 

•99662E*01 

.117266*01 

• 960 9 4E *00 

• 42 477E + 00 

.110326*00 

.230806*01 

.452516+00 

• 126026 + 01 

.999606-01 

12 

• 10907E+02 

.117076*01 

. 961 21E+00 

• 42795E +00 

.128526+00 

• 2 30346*01 

.455606+00 

.126036+01 

.999426-01 

13 

. 1 1 847E*02 

. 1 1694E+01 

.960626*00 

* 42961 E +00 

.147596+00 

.230106*01 

.457486+00 

.126046+01 

.996516-01 

14 

• 12 791E*02 

.116866*01 

.95922E+00 

.429846+00 

.167396+00 

. 2 3004E + 01 

. 45820E +00 

. 12606E+01 

.990966-01 

15 

• 13266E*02 

.116846*01 

* 958 17E +00 

.429396+00 

.177656+00 

.230096+01 

.458116+00 

.126086+01 

• 9870 9E-01 

16 

.137446*02 

.116836*01 

.956936+00 

.428636+00 

.188036*00 

• 2 301 8E + 01 

• 45778E +00 

. 12609E + 01 

.982646-01 

17 

. 14226E+02 

• 1 16 83E + 01 

• 955 55E +00 

.427596+00 

* 19855E+00 

.230306+01 

•45721E+00 

.126116+01 

.977616-01 

18 

• 14684E*02 

.116836*01 

. 95450E +00 

.426356*00 

• 20856E+00 

. 2 3039E + 0 1 

.456296+00 

.126126+01 

• 9718 1E-0 1 

19 

.147056*02 

•11683E+01 

.954496+00 

.426286*00 

.209036+00 

.230396+01 

• 456 22E + 00 

.126126+01 

.971516-01 

20 

.147236*02 

.116836+01 

• 95449E +00 

. 42623E +00 

• 20944E+00 

.230396+01 

.456176+00 

.126126+01 

« 9712 3E-01 


PT. 

ALP(l) 

ALP (2 ) 

ALP ( 3 ) 

ALP ( 4 ) 

ALP<5) 

A LP ( 6 1 

ALP ( 7 ) 

PHI 

u 

1 

• 54914E-03 

.239216-02 

.219966+00 

•27658E-02 

.172936-01 

.689546-02 

.750146+00 

. 10001E+01 

.23810E+02 

2 

.548926-03 

.2 39 39E-02 

.219946+00 

.276726-02 

.172946-01 

.691166-02 

• 75014E + 00 

.100016+01 

.23810E+Q2 

3 

.548606-03 

• 24004E-02 

.219886+00 

.277186-02 

.172996-01 

• 6 9586E-02 

.750146+00 

.100016+01 

.238096+02 

4 

• 54 837E-03 

.241136-02 

.219786+00 

.277936-02 

. 173 12E-01 

• 7 0308E— 02 

. 75014E +00 

.100016+01 

.238076+02 

5 

.548576-03 

.2 42 66E-02 

• 2 1964E + 00 

.27892E-02 

.173346-01 

.712066-02 

• 75014E +00 

• 10001E+01 

. 238056+02 

6 

• 54953E-03 

.244626-02 

.219476+00 

•28012E-02 

. 17371E-01 

.722036-02 

.750146+00 

.100016+01 

.2 38016+02 

7 

• 551 53E-03 

. 24701E-02 

.219286+00 

. 2 81 50E-02 

. 17424E-01 

.732336-02 

. 75 014E + 00 

.100016+01 

.237976+0 2 

8 

• 554 76E-03 

• 24982E-02 

. 21906E+00 

•28304E-02 

.174966-01 

. 7 4240E-02 

. 75014E + 00 

. 10001E +01 

.237936+02 

9 

.559366-03 

• 25306E-02 

.210816+00 

.284726-02 

.175896-01 

.751096-02 

• 75 014E + 00 

. 10001E+01 

.237876+0 2 

10 

• 56544E— 03 

• 2 56 73E — 02 

.21855E+00 

.286536-02 

.177036-01 

.760556-02 

• 75014E +00 

.100016+01 

.237806+02 

11 

.573096-03 

.260876-02 

.218276+00 

• 28047E— 02 

.178406-01 

.768286-02 

. 75014E + 00 

.100016+01 

.237736+02 

12 

.502446-03 

. 26550E-02 

.217976+00 

• 29055E-02 

• 18001 E-01 

.775056-02 

• 75014E + 00 

.100016+01 

.237656+02 

13 

.593536-03 

.270666-02 

. 2176 4E + 00 

• 29 277E-02 

.181876-01 

• 78085E-02 

• 75014E + 00 

.100016+01 

.237566+02 

14 

. 60633E-03 

.276326-02 

.217296+00 

. 29512E-02 

• 18395 E-01 

.7 8569E— 02 

.750146+00 

.100016+01 

• 2 37 4 6E + 02 

15 

•61373E-03 

.27949E-C2 

.217096+00 

. 29640E-02 

.185146-01 

.737836-02 

.750146+00 

.100016+01 

• 2 374 OE + 02 


-tr 

KO 
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• 62 1596—03 
• 62 976E-03 
• 63673E— 03 
•63677E-03 
•63679E— 03 


.28280E-02 
*2 86 19E — 02 
•28912E-02 
•289 14E-02 
• 2 891<»E-02 


• 21690E+00 
•21670E+00 
•21652E+00 
• 21652E+00 
•21652E+00 


•29771E— 02 

• 2990<tE-02 
• 30018E— 02 
• 30019E-02 

* 30019E-02 


• 18638E— 01 
• 18766E-01 
• 18875E-01 
• 188 76E-01 
•1Q876E-01 


•78976E-02 

•7914*E-02 

•79315E-02 

•79315E-0Z 

•79315E-02 


• 7501<tE*00 

• 75014E +00 

• 75 01*E +00 

• 75014E +00 

• 7501<»E*00 


• 10001 E^O 1 
• 1000 1E + 0 1 
•10001E+01 
•10001E+01 
• 1Q001E+01 


• 2 373 *»E *02 

• 2 372 8E ♦ 02 

• 2372 3E*02 
•23723E+02 
•23723E+02 
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Figure 1.- Half-section of the 12° divergent combustor. 
Linear distances are nondimensiona.l . 



Figure 2.- Half-section of combustor with a shock -generating filler plate 
which produces 8° turning. Linear distances are nondimensional . 
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Figure 3.- Half-section of combustor with a shock -gene rating filler plate 
which produces 6° turning. Linear distances are nondimensional. 



Figure 4.- Half-section of combustor with a shock-generating filler plate 
which produces four-unit-length constant area. Linear distances are 
nondimensional . 
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Figure 5.- Comparison of unreacted hydrogen exit profiles 
for several combustor shapes. 
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